Написать программу, которая...

Написать программу, которая выводит пример на вычитание (в пределах 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.
 
Где-то так это выглядит на Паскале. Ошибки не обработаны, так что, если вместо числа ввести строку - программа умрет по исключению.