Сравнить сумму чисел из диапазона от - 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 s>p then writeln('сумма чисел из диапазона [-5; 5] БОЛЬШЕ  произведения цифр числа ',x) else if s=p then writeln('сумма чисел из диапазона [-5; 5] РАВНА  произведению цифр числа ',x) else  writeln('сумма чисел из диапазона [-5; 5] МЕНЬШЕ  произведения цифр числа ',x); end.