Отдаю все накопленный баллы, помогите решить , у меня есть два часа. Сам не могу, если не напишу мне СМЭРТ.
Составьте программу по заданному алгоритму.

var N, K, M: integer;

begin

readln(N);

K:=1;

M:=1;

while K<=N do

begin

M:=M*K;

K:=K+1;

end;

writeln(M);

end;