Автоматная программа вычисления факториала (Pascal)

[Iriska_7]

Помогите, пожалуйста. Необходимо написать автоматную программу вычисления факториала (Pascal). Вот исходный код :

 program faktorial;
uses crt;
var s,k,n: longint;
begin
k:=1; s:=1;
  writeln('Введите желаемое значение');
  readln(n);
while k<=n do begin
 s:=s*k;
  k:=k+1;
writeln('Факториал числа ',n,'   равен  ', s);
 end.

А я никак не могу разобраться...

[DiemonStar]

while k<=n do begin
 s:=s*k;
  k:=k+1;

здесь в конце не хватает

end;