Составить программу Дано целое число N (> 0). Найти произведение 1 · 2 · 3 · …(N...

Question

Составить программу
Дано целое число N (> 0). Найти произведение 1 · 2 · 3 · …(N сомножителей).

Answer 1

Var x,y,z:integer;
Begin
Read(x);
z:=1;
For y:=1 to x do z:=z*y;
Write(z);
End.