{* Трехзначные числа средняя цифра которых равна сумме первой и третей цифр *}

Unit Z_NUMBER11;
Interface
Implementation
Begin
 writeln('Все трехзначные числа средняя цифра которых равна сумме первой и третей цифр');
End.

Program z_number11;

Uses z_number11.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* В работе нам потребуются переменные: *}
  CounterI : word;
Begin
  clrscr; {* Очистка экрана *}
  writeln('Все трехзначные числа средняя цифра которых равна сумме первой и третей цифр');
  For CounterI := 110 To 990 Do {* Увеличиваем CounterI от 110 до 990 с шагом 1 *}
    If ((CounterI Mod 10) + (CounterI Div 100) = (CounterI Div 10 Mod 10) ) Then
      writeln(CounterI);
  readln; {* Ждем подтверждения пользователя *}
End.