Вывести на экран квадраты и кубы нечётных целых чисел от 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?

пусть введенный интервал будет

b и c,где b< c

var a,b,c,i: longint;

begin

    read(b,c);

    for i: =b to c do

            if i mod a=0 then write(i);

end.

2 единицы в двоичной записи числа 1025

10000000001