Вывести a и b и вывести квадраты и кубы чисел от a до b

Var a, b, i:integer;

begin

write ('Введите 2 числа а и b: '); read (a, b);

writeln ('Квадраты чисел: ');

for i:=a to b do

write (i*i,' ');

writeln ('Кубы чисел: ');

for i:=a to b do

write (i*i*i,' ');

end.