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

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