С клавиатуры вводится 3 числа,узнать их сумму и распечатать больше они 0 или меньше — Pascal(Паскаль)

var a,b,c:integer;
begin
Readln(a,b,c);
Writeln('Сумма: ',a+b+c);
if (a>0) and (b>0) and (c>0) then
 Writeln('Больше')
else
 Writeln('Меньше');
Readln;
end.