Ответы и объяснения

2013-02-05T20:39:40+04:00

Как-то так:

 

Program Help;

Var k, i : Word;
p : LongInt;
Begin
Write('Введи k (не больше 12): ');
Readln(k);

p := 1;

For i := 2 to k do
p := p * i;

Writeln('Произведение = ', p);
Readln;
End.