{* Задача 445 *}

Unit ZADACH445;
Interface
Implementation
Begin
 writeln('Выполнить пошаговую компиляцию (трассировку) программы решающей задачу: Вычислить сумму квадратов натуральных чисел в интервале от 10 до 180.');
End.

Program zadach445;

Uses zadach445.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  s : integer;
  i : integer;
Begin
  s := 0;
  For i := 10 To 180 Do {* Цикл для i => [10 .. 180] *}
    s := s + sqr(i);
  writeln ('s=', s);
End.