Задание Паскаль .Вывести квадраты всех чисел от a до b. ( Значения а и b вводятся с клавиатуры; b>=a).Для выполнения организовать цикл с предусловием.

var

 a, b: integer;

begin

 readln(a, b);

 while a <= b do

 begin

   write(sqr(a), ' ');

   a += 1;

 end;

end.