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

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 > pro

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

   else if pro > sum

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

     else writeln('Сумма и произведение равны');

end.