{* Задача 552 *}

Unit ZADACH552;
Interface
Implementation
Begin
 writeln('Клоун предложил каждому из публики задумать число. Потом он сказал: «Прибавьте к задуманному числу 5. Теперь из результата вычтите 2. А теперь к результату прибавьте 7». Потом клоун спросил у желающих, какое число у каждого из них получилось. Услышав ответ, он немедленно объявлял каждому, какое число тот задумывал. Составьте программу, которая повторяла бы фокус клоуна.');
End.

Program zadach552;

Uses zadach552.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* В работе нам потребуются переменные: *}
  x : integer;
  y : integer;
Begin
  clrscr; {* Очищаем экран *}
  writeln('Задумайте число.');
  writeln('К числу прибавьте 5.');
  writeln('От полученного результата вычтите 2.');
  writeln('К результату прибавьте 7.');
  write('Сколько получилось?-');
  read(y);
  x := x - 10;
  writeln('Ваше число -  ', x);
  readkey; {* Ждем нажатия любой клавиши *}
End.