даны 2 числа меньшее из них заменить полусуммой,а большее число ...

Motes

Program n1;Uses CRT;Var a,b: integer;beginWriteln('Vvedite chisla');Readln(a,b);If a>b then writeln(2*a*b,' ',a+b/2:2:2) else if a=b then writeln('ravny!') else writeln(a+b/2:2:2,' ',2*a*b);readlnend.