Вопрос, который вызвал трудности

Входные данные
Вводятся целые числа a и b. Гарантируется, что a не превосходит b.

Выходные данные
Выведите все числа на отрезке от a до b, являющиеся полными квадратами. Если таких чисел нет, то ничего выводить не нужно.

Примеры
входные данные
1
1
выходные данные
1
входные данные
2
8
выходные данные
4
Заранее спасибо.

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

Var a, b, i: integer;
begin
  read(a, b);
  for i := trunc(sqrt(a)+ 1 - 1e-9) to trunc(sqrt(b)) do
    writeln(i*i);
end.

// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
  var a,b:integer;
  Read(a,b);
  Range(Trunc(Sqrt(a)),Trunc(Sqrt(b))).Select(n->n*n).Where(x->x>=a).Println
end.

Тестовое решение
3 150
4 9 16 25 36 49 64 81 100 121 144