Составьте программу которая выводит на экран пример на умножение двух однозначных чисел,запрашивает ответ пользователя.проверяет его и выводит соответсвующиеся сообщения : "Правильно!" либо "Вы ошиблись" .а также правильный результат.Ниже представлен рекомендуемый вид экрана во время работы экрана Сколько будет 6х7? Введите ответ и нажмите ->51 Вы ошиблись. 6x7=42

program checking;
uses Crt;
var x, y, n: real;
c: char;
begin
randomize;
repeat
clrscr;
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.