Сопоставить сумму чисел из спектра от - 5 до +5

Program z1;
var s,i,x,p:integer;
begin 
s:=0;
for i:=-5 to 5 do
s:=s+i;
writeln('введите целое трехзначное число');
readln(x);
p:=(x div 100)*(x div 10 mod 10)*(x mod 10);
if sgt;p then
writeln('сумма чисел из спектра [-5; 5] БОЛЬШЕ  творения цифр числа ',x)
else if s=p then
writeln('сумма чисел из спектра [-5; 5] РАВНА  творению цифр числа ',x)
else 
writeln('сумма чисел из спектра [-5; 5] МЕНЬШЕ  творения цифр числа ',x);
end.