Составьте программу, которая выводит пример на умножени е двух однозначных чисел, запрашивает ответ пользователя, проверяет его и выводи т сообщение «Правильно!» или «Вы ошиблись» и правильны й

результат  в паскале

var a,b,c,r:integer;begina:=random(1,9);b:=random(1,9);write(a,'*',b,'=');r:=a*b;readln(c);if r=c then writeln('Правильно!') elsewriteln('Вы ошибись!');end.