Ввести два целых числа a и b ( a<b)и вывести квадраты всех чисел отa до b

var
  a, b: integer;
 
begin
  read(a, b);
  SeqGen(b - a + 1, x -> sqr(x), a).Println;
end.