{* Таблица квадратов нечетных значений *}

Unit MAS_1;
Interface
Implementation
Begin
 writeln('Таблица квадратов нечетных значений');
End.

Program mas_1;

Uses mas_1.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Const {* Постоянные значения *}
  n = 5;
Var {* Объявление переменных *}
  a : Array[1..n] Of integer;
  i : integer;
Begin
  clrscr; {* Стираем всё с экрана *}
  randomize;
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
  Begin
    a[i] := random(9);
    write(a[i]);
  End;
  writeln; {* Пропускаем одну строку *}
  For i := 1 To n Do {* Переменная i увеличивается с 1 до n *}
    If odd(i) = true Then
      writeln(sqr(a[i]));
  readkey; {* Ждем нажатия пользователя *}
End.