Задача 5 var s, k:integer, begin s:=1; for k:=1 to 5 do s:=s*k; write(s); end.

Пошаговое решение:

1. Инициализация переменной `s` значением 1.
2. Цикл `for k` выполняется для `k` от 1 до 5.
3. Итерация 1 (k=1): `s` становится `1 * 1 = 1`.
4. Итерация 2 (k=2): `s` становится `1 * 2 = 2`.
5. Итерация 3 (k=3): `s` становится `2 * 3 = 6`.
6. Итерация 4 (k=4): `s` становится `6 * 4 = 24`.
7. Итерация 5 (k=5): `s` становится `24 * 5 = 120`.
8. Вывод значения `s` на экран.

Ответ: 120