Вероятно вы ошиблись, ибо у вас в программе есть некая l, которой нет в разделе переменных. Я заменил её на единицу, и получил 120. Код:
var
s,k : integer;
begin
s:=1;
for k:=1 to 5 do
s:=s*k;
write(s);
end.
Вероятно вы ошиблись, ибо у вас в программе есть некая l, которой нет в разделе переменных. Я заменил её на единицу, и получил 120. Код:
var
s,k : integer;
begin
s:=1;
for k:=1 to 5 do
s:=s*k;
write(s);
end.