Запишите результат выполнения программы.
Var p, n: integer;
Begin
P:=1,
For n:=5 downto 3 do
P:= p*n;
Writeln (p )