Помогите пожалуйста решить задачу по информатике:Вывести ** экран квадраты и кубы всех...

Question

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

Answer 1

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.