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

Pascal var   a,b,i : integer;    begin  writeln ('Введите границы интервала (a b):');  readln (a,b);   for i := a to b do    writeln (i,' ',i*i,' ',i*i*i); end.