Составить программу вычисления n! (n факториал) f=n! =1*2*3*4* 8 класс паскаль абс

Var a,b,c:integer;
begin
write('Введите число ');
readln(a);
b:=1;
c:=1;
while c<=a do
begin
b:=b*c;
c:=c+1
end;
write('Факториал числа ',a,' равен ',b)
end.