Чи може система знайти та виправити всі помилки, допущені при введенні тексту?

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.

стр 21 № 27

1 картинка тёплый дождь и розовые облака

2 картинка тёплый дождь и жёлтые облака

3 картинка холодный дождь и синии облоко

стр 22 № 28

                                                          МНОЖЕСТВО:

прямоугольник - растений

круг - деревьев

квадрат - лиственные деревьев

овал - вечнозелёных деревьев

треугольник - кустарников

квадрат в круге - не лиственных деревьев

пересечение квадрата и овала - вечнозелёных и лиственых деревьев

объеденение квадрата и круга - вечно зелёных или лиственых деревьев

дуб в квадрат но не в овала

сирень в треугольник

лиственница  в круг

сосна в овал но не в квадрат

пальма в пересечение квадрата и овала

 ВЫСКАЗЫВАНИЕ:                                           деревья для которых высказывание истинно

Дерево не лиственное                                        Лиственница, сосна

Дерево лиственное и вечнозелёное                 Пальма

Дерево лиственное или вечнозелёное             Дуб , сосна, пльма

Дерево лиственное и не вечнозелёное            Дуб

Дерево не лиственное и не вечнозелёное       Лиственница