Даны 3 числа найди их сумму произведения и выяснить что больше сумма или произведение

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