Вывести (a и b)и вывести квадраты и кубы чисел от (a) до (b)
Пример:
4 и 6
4 16 64
5 25 125
6 36 216

var a,b,i:integer;

begin

writeln('Введите a,b:');

readln(a,b);

for i:=a to b do begin

write(i);

write(' ',i*i);

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

end;

end.

ответ компилятора:

Введите a,b:

4 6

4 16 64

5 25 125

6 36 216