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

Question

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

Comments

от a до b включительно?

Answer 1

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