Паскаль

[лана,]

Всем привет я новенькая помогите пожалуйста решить задачу на Паскале завтра госэкзамен Даны 2 числа меньший из них замените полсуммой этих чисел,а большие произведеним

[DRAgon™]

Сообщение от лана,

Всем привет я новенькая помогите пожалуйста решить задачу на Паскале завтра госэкзамен Даны 2 числа меньший из них замените полсуммой этих чисел,а большие произведеним

такое вроде было задание если не ошибаюсь,поищите

[ROMA2PVT]

Ох уж эта яга.

Uses
   CRT;
Var
  a,b,pr,sum:real;
begin
Clrscr;
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
  pr:=a*b;
  sum:=(a+b)/2;
  if a>b then
    begin
      a:=pr;
      b:=sum;
    end
else if b>a then
  begin
     b:=pr;
     a:=sum;
  end;
  writeln('Число А:=',a);
  writeln('Число B:=',b);
readkey;
end.