{* Задача 59 *}

Unit ZADACH59;
Interface
Implementation
Begin
 writeln('Написать программу, которая выводит пример на вычитание (в пределах 100), запрашивает ответ пользователя, проверяет его и выводит сообщение "Правильно!" или "Вы ошиблись!" и правильный результат.');
End.

Program Substraction;

Uses zadach59.pas; {* Эту строку можно удалить *}
Uses CRT; {* Подключаем внешние файлы *}
Var {* Объявление переменных *}
  x      : integer;
  y      : integer;
  result : integer;
Begin
  randomize;
  x := random(101);
  y := random(101);
  writeln('Сколько будет ', x, '-', y, '=?');
  writeln('Введите ответ и нажмите ');
  readln(result);
  If x - y = result Then
    writeln('Правильно!')
  Else writeln('Вы ошиблись! ', x, '-', y, '=', x - y);
    readln; {* Ждем подтверждения пользователя *}
End.