Составьте программу которая выводит на экран пример на умножение двух однозначных чисел, запрашивает ответ пользователя. проверяет его и выводит соответсвующиеся сообщения : "Правильно!" либо "Вы ошиблись". а также правильный результат. Ниже представлен рекомендуемый вид экрана во время работы экрана Сколько будет 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.