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

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

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

PascalABC.NET

Понятно.

// PascalABC.NET 3.1, сборка 1256 от 21.06.2016begin  var a,b:integer;  Read(a,b);  Range(Trunc(Sqrt(a)),Trunc(Sqrt(b))).Select(n->n*n).Where(x->x>=a).Printlnend.Тестовое решение3 1504 9 16 25 36 49 64 81 100 121 144

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.