Записать логическую функцию, описывающую состояние логической схемы. составить таблицу истинность

function Fact(n:integer):integer;

var

  rez, i:integer;

begin

  rez := 1;

  for i := 2 to n do

    rez := rez * i;

  Fact := rez;

end;

function Pow(a, x:integer):integer;

var

  rez, i:integer;

begin

  rez := 1;

  for i := 1 to x do

    rez := a * rez;

  Pow := rez;

end;

var

  a, b, n, i:integer;

  F:real;

begin

  write('a = '); readln(a);

  write('b = '); readln(b);

  write('n = '); readln(n);

  F := 0;

  for i := 1 to n do

    F := F + Fact(n - i + 1)/(Pow(a,i) - Pow(b, i));

  writeln('F = ', F);

end.

var

  a : array [1..100] of real;

  n, i : integer;

begin

  read (n);

  for i := 1 to n do read (a[i]);

  for i := 1 to n do

    if a[i] <= 0 then

    begin

      writeln ('NO');

      readln;

      Halt;

    end;

  writeln ('YES');

  readln;

end. 

var

  a : array [1..100] of real;

  n, i : integer;

  o : real;

begin

  read (n);

  for i := 1 to n do read (a[i]);

  o := a[1];

  for i := 2 to n do

    if a[i] <> o then

    begin

      writeln ('NO');

      readln;

      Halt;

    end;

  writeln ('YES');

  readln;

end. 

var

  a : array [1..100] of real;

  n, i : integer;

  x : real;

begin

  read (n);

  for i := 1 to n do read (a[i]);

  read (x);

  for i := 1 to n do

    if a[i] = x then

    begin

      writeln ('YES');

      readln;

      Halt;

    end;

  writeln ('NO');

  readln;

end.