Программа на паскале
вычислить произведение 1*2*3*4*...*5n
если n = 5

Program proizv;
 var i,n, p: integer;
begin
 n:=5;
p:=1;
for i:=1 to n do p:=p*i;
write(p=,p)
end.