Question

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

Answer 1

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.