Вывести на экран квадрат и куб нечетных чисел от 1 до 9

сад гад год код кот                        

var m,n: integer;

begin

  read(n,m);

  if n > m then writeln(m+n, n);

  else writeln(m+n, m);

end.

во второй непонятно как задются эти числа

var i,n: integer;

begin

  read(n);

  for i : = 1 to n do

      writeln(i, i*i);

end.

блок схемы мы не учили да и фигня эти схемы чесно говоря