Вывести ** экран кубы чисел в диапазоне A и B.

Question

Вывести на экран кубы чисел в диапазоне A и B.

Answer 1

var

a,b,i:integer;

begin

writeln('Введите диапазон чисел: ');

readln(a,b);

for i:=a to b do

begin

writeln(i,' ',sqr(i)*i);

end;

end.