vari,m,n: longint;beginwrite('Введите через пробел границы интервала: ');readln(m,n);for i:=m to n dowriteln(i,' ',i*i,' ',i*i*i);end.
var
i,m,n: longint;
begin
write('Введите через пробел границы интервала: ');
readln(m,n);
for i:=m to n do
writeln(i,' ',i*i,' ',i*i*i);
end.