Вывести 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.