ПОМОГИТЕ ПОЖАЛУЙСТА НАПИСАТЬ ПРОГРАММУ ПО ИНФОРМАТИКЕ В ВИДЕ ТЕСТА Должны предлагаться вопросы с примерами , например 6*7=? Нужно написать ответ и если правильно , то в конце выходит какой-то комментарий ( молодец!) , а если наоборот , то например "не правильно. Ответ:..." И выводится правильный ответ . Желательно , чтобы этот тест состоял из 5 примеров , а в конце оценивался Например 5 правильных ответов , значит 5, 4 правильных-4 и так далее ПОЖАЛУЙСТА

Program test;
var ans,k,a,i,b: integer;
begin
randomize;
k:=0;
for i:=1 to 5 do
begin
a:=random(10)+1;
b:=random(10)+1;
writeln(i, пример: );
write(a,*,b,=);
readln(ans);
if ans=a*b then
begin
writeln(верно);
k:=k+1;
end
else
writeln(неверно, ответ: ,a*b);
end;
write(правильно ,k, из 5, ваша оценка: ,k);
end.