Напишите программу, которая вводит натуральные числа a и b , и выводит квадраты натуральных чисел в диапазоне [ a , b ] . ps: на pascal'е

Var
i,a,b:Integer;
Begin
 Read(a,b);
 for i:=a to b do
  begin
   Write(i*i,' ');
  end;
end.