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

То есть так что ли:

1^2=1 1^3=1

3^2=9 3^3=27

5^2=25 5^3=125

7^2=49 7^3=343

9^2=81 9^3= 729?

всего длина окружности составляет 2пr, а половина - пr

совершенное число это число равное сумме своих делителей отличных от самого числа

var i, s,j : integer;

begin for i : = 5 to 200 do begin s : = 0; for j : = 1 to i div 2 do if (i mod j = 0) then s : = s + j; if s = i then writeln(i); end; end.