{* Сумма всех нечетных трехзначных чисел. *}

Unit Z_SUMMA9;
Interface
Implementation
Begin
 writeln('Сумма всех нечетных трехзначных чисел.');
End.

Program z_summa9;

Uses z_summa9.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Объявление переменных *}
  sum : integer;
  i   : integer;
Begin
  clrscr; {* Стираем всё с экрана *}
  i := 101; {Первое трехзначное нечетное число}
  sum := 0;
  Repeat   sum := sum + i;
    inc(i, 2); {* Прибавим к i, 2 единицу *}
  Until (i > 999);
  writeln('Сумма трехзначных нечетных чисел ', sum);
  readln; {* Приостановка программы. Ожидание Enter *}
End.