Помогите ПОЖАЛУЙСТА написать в Паскале программу: тебе программа приводит уравнение, ты вводишь ответ. 10 вопросов на счёт. Далее идет подсчет правильных и неправильных ответов. Выводится на экран "отлично" если больше 8, "хорошо" если больше 5 и "плохо" если меньше 5 правильных ответов. (Идет начисление баллов на каждый правильный ответ)

Ну ответы для примера, как и сами уравнения. Изменить на то, что нужно - не проблема.

Спасибо большое :)

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.