Помогите пожалуйста с паскалем.Вывести квадраты и кубы чисел от a до b.
Пример:
Введите границы интервала
4 6
4 16 64
5 25 125
6 36 216
var i,m,n: longint; begin write('Введите через пробел границы интервала: '); readln(m,n); for i:=m to n do writeln(i,' ',i*i,' ',i*i*i); end.