Даны три числа: a,b,c. найти их сумму и произведение, выяснить что больше сумма или произведение. не на языке паскаля..

Var a,b,с,s,p:integer;
begin
write('a=');
readln(a);
write('b=');
readln(b);
write('с=');
readln(с);
s:=a+b+с;
p:=a*b*с;
if s>p then
writeln('Сумма больше произведения');
if p>s then
writeln('Произведение больше суммы');
end.