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

var  a,b,r:byte;begin  randomize;  a:=Random(9)+1;  b:=Random(9)+1;  Write(a,' x ',b,' = ');  Readln(r);  if r=a*b then Writeln('Правильно!')  else Writeln('Вы ошиблись. Верный результат ',a*b)end.