begin
  var n := Abs(ReadLnInteger('Введите число N:'));
  var i := 1;
  var k := 1;
  WriteLn('Таблица квадратов нечетных чисел от 1 до ' + n + ':');
  while i <= n do
  begin
    Write(i:n.ToString.Length, ' ^ 2 = ', Sqr(i):0, k mod 5 = 0 ? newLine : #9);
    i += 2;
    k += 1;
  end;
  WriteLn;
end.