Відповідь:

Текст програми на мові Pascal (Результат виконання програми на фото):

program Squares;

var

a, b, i: integer;

begin

writeln('Enter two natural numbers:');

readln(a, b);

writeln('Squares in the interval from ', a, ' to ', b, ':');

for i := a to b do

writeln(i, '*', i, ' = ', i*i);

end.