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

---