Известен факториал числа n. найти это число (факториал числа n равен 1 • 2 • • n в паскале

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
  var nf:=ReadlnString('Значение n!').ToBigInteger;
  var n:=1;
  var f:=BigInteger(1);
  repeat
    f*=n;
    if f<nf then Inc(n)
  until f>=nf;
  if f=nf then Writeln('n=',n)
  else Writeln('Число не является факториалом')
end.

Тестовое решение
Значение n! 1982608315404440064116146708361898137544773690227268628106279599612729753600000000000000
n=63

Program lol(input, output);
var a, I:real;
begin
read (a);
I:=1;
while a <> 1 do
begin
a:=a/I;
I:=I+1;
end;
writeln (I-1);
end.

uses graphabc;

 

procedure drawlight(x, y, r : integer; c : color);

begin

  brush.color : = c;

  circle(x, y, r);

end;

 

begin

  randomize;

  var v : = random(1, 3);

  var(c1,c2,c3): =(clwhite,clwhite,clwhite);

  case v of

    1 : c1 : = clred;

    2 : c2 : = clyellow;

    3 : c3 : = clgreen;

  end;

  drawlight(window.center.x, window.height div 10 * 2, window.height div 7, c1);

  drawlight(window.center.x, window.height div 10 * 5, window.height div 7, c2);

  drawlight(window.center.x, window.height div 10 * 8, window.height div 7, c3);

end.

в паскале

pascalabc:

program f0rwardirop;

var r, x,y: real;

b: boolean;

begin

  writeln('*   alphaeus is   *');

  write('ok, введите r =');   readln(r);

  write('теперь введите х =');   readln(x);

  write('и, наконец, введите y =');   readln(y);

  if x> =0 then  

      if (x*x+y*y < = r*r) then b: = true else b: =false

    else

      if (abs(x) < =r) and (abs(y) < =r) and (abs(x) < = abs(y)) then b: = true else b: =false;

  if b then   writeln('точка (',x,',',y,') принадлежит закрашенной области')

      else   writeln('точка (',x,',',y,') не принадлежит закрашенной области');

end.