Question

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

Answer 1

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