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

Uses
  CRT;

var
  a, b, rez: integer;
  key: char;

Begin
  repeat
    randomize;
    a := random(100);
    b := random(100);
    write(a, '-', b, ':=');
    readln(rez);
    if rez = (a - b) then
      write('Верно')
    else
      write('Не верно');
    writeln;
    write('Повторить? (Y/N)');
    readln(key);
  until UpCase(key) <> 'Y';
  readln

End.