Напишите программу для вычисления факториала с использованием цикла со счетчиком и оператора с предусловием — Pascal(Паскаль)

uses crt;
var n,i,s,v:longint;
begin
clrscr;
write('Vvedite chislo=');
readln(n);
s:=0;
v:=1;
while (s<n) do
 begin
  s:=s+1;
  v:=v*s;
 end;
write(v);
readln
end.