Составьте программу которая выводит на экран пример на умножение двух однозначных чисел,запрашивает ответ пользователя.проверяет

program checking;uses Crt;var x, y, n: real;c: char;beginrandomize;repeatclrscr;x:= random(10) + 1;y:= random(10) + 1;writeln(\'Сколько будет \', x, \' x \', y, \'?\');readln(n);if (n = x * y) then writeln(\'Правильно: \', x, \' x \', y, \' = \', x * y) else writeln(\'Неправильно! \', x, \' x \', y, \' = \', x * y);writeln(\'Продолжить - Пробел, выйти - Esc\');c:= readkey;until c = char(27); end.