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