{* Все трехзначные числа кратные 3 *}

Unit Z_NUMBER33;
Interface
Implementation
Begin
 writeln('Все трехзначные числа кратные 3');
End.

Program z_number;

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