stange

Ответ:

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