)даны два неравных числа a и b.меньшее из этих чисел заменить полуссумой a и b а большее их полуразность..

Program qwertr;
var a,b,c: integer;
begin 
read (a,b)
if (a<b) then
begin 
c:=(a+b)/2;
end;
else
c:=(a-b)/2;
end;
write (c);
end.

uses crt;
var a, b, c, i :integer;
begin
   clrscr;
   writeln ('Введите числа');
   readln (a, b);if a>b then
      writeln ('a = ', (a-b)/2:0:10, ' b = ', (a+b)/b:0:10);
   if a<b then
      writeln ('b = ', (a+b)/b:0:10, ' a = ', (a-b)/2:0:10);
end.

P.S. Надеюсь на благодарность и лучший ответ.