Составьте программку. Заданы три вещественных числа. Обусловьте, что больше сумма либо

program raf105;

var

 a,b,c,sum,pro: real;

begin

 write('Введите 3 вещественных числа: ');

 readln(a,b,c);

 sum:= a+b+c;

 pro:= a*b*c;

 if sum gt; pro

   then writeln('Сумма больше творения')

   else if pro gt; sum

     then writeln('Творение больше суммы')

     else writeln('Сумма и творенье равны');

end.

PascalABC 3.4.2