даны 3 числа определить,что больше сумма или произведение этих чиселПАСКАЛЬ

Question

даны 3 числа определить,что больше сумма или произведение этих чисел
ПАСКАЛЬ

Answer 1

Program test;
var a,b,c,sum,pr:integer;
beginreadln(a,b,c);
sum:=a+b+c;
pr:=a*b*c;
if sum>pr then writeln ('сумма больше произведения')
else writeln('произведение больше суммы');
end.

Answer 2

Uses crt;
var a, b, c, s, f:integer;
begin
write('a='); read(a);
write('b='); read(b);
write('c='); read(c);
s:=a+b+c; f:=a*b*c;
if s>f then write('Сумма больше.') else write('Произведение больше.');
end.