Ответ:

Объяснение:

program Squares;

var

 a, b, i: Integer;

begin

 writeln('Введите два натуральных числа:');

 readln(a, b);

 writeln('Квадраты натуральных чисел между ', a, ' и ', b, ':');

 for i := a to b do

   writeln(i * i);

end.