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
