Определите, что будет напечатано в результате работы следующей программы. var s,k: integer
Begin
s:=l;
for k:=l 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.