Напишите программу, которая получает два целых числа A и B и выводит квадраты всех натуральных чисел в интервале от A до B.

Var
  a,b,i:integer;
Begin
  Write('Введите А и В ');
  Read(a,b);
  for i:= a to b do
    writeln(a+(i-a),'^2 = ',sqr(i));
End.