помогите нужно найти ошибки в программе​

program zadacha2_12;

var k,s,z,x : integer;

begin

if x = 4 then

writeln('Нет решения')

else

begin

s := 0;

for k := 4 to 12 do

s := s * sqr(x)*(k+1)*(x-4)

end;

z := 31 * sqr(x) + 5 * s;

writeln('Сумма z =', z);

end.