Запишите в развернутой форме число 725 внизу

Const
  problems : array [0..9] of String = ('x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10','x1+5=10', 'x1+5=10', 'x1+5=10');
  answers : array [0..9] of String = ('-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5');
var
  countOfAnswers, counter: integer;
  userAnswer: String;
begin
  countOfAnswers := 0;
  for counter:=0 to 9 do
    begin
      write('Введите ответ уравнения ', problems[counter], ' : ');
      readln(userAnswer);
      if userAnswer = answers[counter] then Inc(countOfAnswers);
    end;
if countOfAnswers > 8 then writeln('Отлично')
    else if countOfAnswers > 5 then writeln('Хорошо')
    else writeln('Плохо');
end.

Объяснение:

F=¬A∧B∧(¬C∨A)

Таблица истинности

A     B     С     ¬A     ¬A∧B     ¬С     ¬С∨A     ¬A∧B∧(¬C∨A)

0     0     0        1          0         1            1                  0

0     0      1        1          0         0           0                 0

0      1      0       1           1          1            1                  1

0      1      1        1           1          0           0                0

1       0     0       0          0         1            1                 0

1       0      1        0         0         0           1                 0

1       1       0       0          0         1           1                 0

1       1       1        0          0         0          1                 0