Вывести квадраты натуральных чисел в диапазоне от [a, b] на языке pascal.

program prog;

var a,b:integer;

begin

   write('Введите a: '); readln(a);

   write('Введите b: '); readln(b);

   while a <= b do

   begin

       write(sqr(a), ' ');

       a:=a+1

   end

end.