Решить по информатике: вывести на экран квадраты и кубы всех нечётных чисел от 1 до 9.

var
  i: byte;
begin
  for i := 1 to 9 do
    writeln(String.Format('{0:00} | {1:00} | {2:000}', i, sqr(i), sqr(i) * sqr(i) / i));
end.