Question

ПОМОГИТЕ ПОЖАЛУЙСТА
var p,n: integer
begin
p:=1;
for n:=7 downto 3 do
p:=p*n;
writeln (p)
end