program fact;
uses crt;
var
n:integer;
j:integer;
k:integer;
BEGIN
clrscr;
write(' Введите значение n = ');
readln(n);
while (n<1) do begin
write(chr(7),' n = ');
readln(n);
end;
k:=l;
for j:=l to n do k:=k*j; //* Считаем факториал */
end;
write(‘Значение функции равно’,k:5:2 );
readln;
end.