Помогите с информатикой умоляю мне срочно надо

program Test_subject;
uses crt;

var questions : array[1..10] of string;
answers : array[1..10] of string;
counter : integer;

begin
clrscr;

questions[1] := '1. Какой цвет у неба? '; {синий}
answers[1] := '1. синий '; color(12);

questions[2] := '2. Сколько углов у треугольника? '; {3}
answers[2] := '2. 3 '; color(13);

questions[3] := '3. Как называется наука об окружающем мире? '; {естествознание}
answers[3] := '3. естествознание '; color(14);

questions[4] := '4. Какой сезон идет после зимы? '; {весна}
answers[4] := '4. весна '; color(12);

questions[5] := '5. Что стоит на столе в классе? '; {парта}
answers[5] := '5. парта '; color(13);

questions[6] := '6. Автор «Горя от ума»? '; {Грибоедов}
answers[6] := '6. Грибоедов '; color(14);

questions[7] := '7. Какого числа съезд? '; {28}
answers[7] := '7. 28 '; color(12);

questions[8] := '8. Что месяца до лета? '; {июнь}
answers[8] := '8. июнь '; color(13);

questions[9] := '9. Что сносит снег? '; {весна}
answers[9] := '9. весна '; color(14);

questions[10] := '10. Сколько суток в году? '; {365}
answers[10] := '10. 365 '; color(12);

counter := 1;
readln;

while counter <= 10 do
begin
writeln(questions[counter]);
readln;
counter := counter + 1;
end;

readln;
counter := 1;
while counter <= 10 do
begin
writeln(answers[counter]);
readln;
counter := counter + 1;
end;

end.

Окей, вот простой пример программы на языке Pascal ABC для теста из 5 вопросов. Вы можете изменить вопросы и ответы на свой выбор.

```pascal
uses GraphABC;

const
questions: array [1..5] of string = (
'Вопрос 1: Сколько планет в солнечной системе?',
'Вопрос 2: Какая планета ближе всего к Солнцу?',
'Вопрос 3: Какая планета самая большая?',
'Вопрос 4: Сколько спутников у Марса?',
'Вопрос 5: Как называется наша галактика?'
);
answers: array [1..5] of string = ('8', 'Меркурий', 'Юпитер', '2', 'Млечный Путь');

var
i: integer;
userAnswer: string;
score: integer;

begin
score := 0;
for i := 1 to 5 do
begin
SetPenColor(clRed);
writeln(questions[i]);
SetPenColor(clBlue);
readln(userAnswer);
if userAnswer = answers[i] then
score := score + 1;
end;
writeln('Ваш результат: ', score, ' из ', 5);
end.
```