Написать программу, которая выводит пример на вычитание (в пределах 100), запрашивает ответ пользователя, проверяет ответ и выводит сообщение "Правильно!" или "Вы ошиблись" и правильный результат

program ProgramXY;
const n=100;

var inputText : integer;
begin  Randomize;

var x := Random(n) + 1;

var y := Random(n) + 1;

var z := x - y;

writeln('Решите пример: ', x, ' - ', y, ' = ');

readln(inputText);

if inputText = z then    writeln('Правильно!')

else    writeln('Вы ошиблись! Правильный ответ: ', z)

end.

Где-то так это выглядит на Паскале. Ошибки не обработаны, так что, если вместо числа ввести строку - программа умрет по исключению.