{* Задача 271 *}

Unit ZADACH271;
Interface
Implementation
Begin
 writeln('Найти максимальное из натуральных чисел, не превышающих 5000, которое нацело делится на 39');
End.

Program zadach271;

Uses zadach271.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Необходимые переменные *}
  i   : integer;
  b   : integer; {числа}
  max : integer; {максимальное число}
Begin
  clrscr; {* Очистка экрана *}
  max := 39;
  For i := 1 To 5000 Do {* Цикл для i => [1 .. 5000] *}
  Begin
    If i Mod 39 = 0 Then
      b := i;
    If b > max Then
      max := b;
  End;
  writeln (‘max число = ‘, max);
  readln; {* Ждем нажатия Enter *}
End.