Составить тест из 3 вопросов на языке паскаль, с 3 вариантами ответа, и в конце составить процент верных и вывести оценку
90% < % -5
70-80% - 4
>60% -3
<60%-2

var x,y,z:longint;beginwriteln(' TEST');writeln(' выберите верный вариант ответа 1,2 или 3');writeln(' сюда вбиваешь вопрос ');writeln('1.сюда варианты ответов);writeln('2.сюда варианты ответов);writeln('3.сюда варианты ответов);read(x);if (x=номер верного варианта) then y:=y+1;writeln(' сюда вбиваешь вопрос ');writeln('1.сюда варианты ответов);writeln('2.сюда варианты ответов);writeln('3.сюда варианты ответов);read(x);if (x=номер верного варианта) then y:=y+1;writeln(' сюда вбиваешь вопрос ');writeln('1.сюда варианты ответов);writeln('2.сюда варианты ответов);writeln('3.сюда варианты ответов);read(x);if (x=номер верного варианта) then y:=y+1;if (y=3)then write('ваша оценка 5');if (y=2)then write('ваша оценка 3');if (y=1)then write('ваша оценка 2');end.P.S.прошу проверить на ошибки а тест думаю вы и сами составите надеюсь всё правильно т.к. давно не работал на паскале