Задание Паскаль .Вывести квадраты всех чисел от a до b. (

//PascalABC.NET v3.3 1633

begin

 var a,b: integer;

 repeat

   a:=ReadInteger('Введите A: ');

   b:=ReadInteger('Введите B: ');

   if not (b gt;= a) then writeln('Неправильный ввод! B обязано быть больше либо равно A!');

 until b gt;= a;

 while a lt;= b do

 begin

   writeln(' '+a+'^2 = '+sqr(a));

   a += 1;

 end;

end.