Запишите результат выполнения программы: var p, n: integer; begin p:=1; for n:=5 downto 3 do p:=p*n; writeln(p) end.

Разберем данную программу. Переменные p и n объявляются как целые числа. Переменной p присваивается начальное значение 1. Затем идет цикл for, в котором переменная n изменяется от 5 до 3 включительно с шагом -1 (downto). Внутри цикла значение переменной p умножается на значение переменной n. После завершения цикла значение переменной p выводится на экран.

Распишем, как меняется значение p в цикле:

1. n = 5, p = 1 * 5 = 5
2. n = 4, p = 5 * 4 = 20
3. n = 3, p = 20 * 3 = 60

Следовательно, программа выведет на экран значение 60.

Ответ: 60