Question

ПОМОГИТЕ ПОЖАЛУЙСТА!
Дам 15 балов
var p,n: integer;
begin
p:=1;
for n:=7 downto 3 do
p:=p*n;
writeln (p)
end

Answer 1

Ответ:

2520

Объяснение:

Answer 2

Спасибо
А как это получилось?