Программный продукт в Pascal, проверяющий знания правил русского языка(например, поставить правильную букву в слове). Во не менее 5. Программа должна выводить оценку за тест.

ответ:var err, right, answer : integer;

BEGIN

err := 0; right := 0;

writeLn('Сейчас Вам будет предложен тест по архитектуре. ');

writeLn('К каждому вопросу три варианта ответа. ');

writeLn('Вы должны ввести номер правильного ответа и нажать <Еnter>');

writeLn;

writeLn('Архитектор Исаакиевского собора: ');

writeLn('1. Доменико Трезини');

writeLn('2. Огюст Монферран');

writeLn('3. Карл Росси');

Write('Ваш ответ: ');ReadLn(answer);

if answer = 2 then begin

WriteLn('Правильно');

right := right +1;

end

else begin

WriteLn('Неправильно');

err := err + 1;

end;

writeLn;

writeLn('Архитектор Зимнего дворца: ');

writeLn('1. Франческо Бартоломео');

writeLn('2. Карл Росси');

writeLn('3. Огюст Монферран');

Write('Ваш ответ: ');ReadLn(answer);

if answer = 2 then begin

WriteLn('Правильно');

right := right +1;

end

else begin

WriteLn('Неправильно');

err := err + 1;

end;

writeLn;

writeLn('Невский проспект получил свое название: ');

writeLn('1. По имени реки, на которой стоит Санк-Петербург');

writeLn('2. По имени близко расположенной Александро-Невской лавры');

writeLn('3. В память о знаменитом полководце - Александре Невском');

Write('Ваш ответ: ');ReadLn(answer);

if answer = 2 then begin

WriteLn('Правильно');

right := right +1;

end

else begin

WriteLn('Неправильно');

err := err + 1;

end;

WriteLn('Правильных ответов: ', right);

WriteLn('Неправильных ответов: ', err);

END.

Объяснение:

P.S. Это конечно не то,но думаю по аналогию сможешь составить