Составить программу в Паскале Даны 2 действительных числа, не равные друг другу. Меньшее...

Question

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

Answer 1

var a,b,c:real;

begin

   readln(a,b);

   if(a > b) then

       begin

           writeln('a Больше');

           c := a;

           a := a*b*3;

           b := (b+c)/ 2;

           writeln('a = ',a,'   b = ',b);

       end;

if(b > a) then

       begin

           writeln('b Больше');

           c := b;

           b := a*b*3;

           a := (a+c)/ 2;

           writeln('a = ',a,'   b = ',b);

       end;

end.