{* Таблица квадратов *}

Unit CIKL_1;
Interface
Implementation
Begin
 writeln('Вывод таблицы квадратов
');
End.

Program cikl_1;

Uses cikl_1.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* В работе нам потребуются переменные: *}
  n : integer;
  i : integer;
  s : integer;
Begin
  writeln('Vvedite n');
  readln(n);
  s := 1;
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
  Begin
    s := sqr(i);
    writeln('s = ', s);
  End;
  readkey; {* Нажмите любую клавишу *}
End.