program zadacha2_12;
var k,s,z,x : integer;
begin
if x = 4 then
writeln('Нет решения')
else
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.
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.