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

program laba;var a, {нижний придел последовательности} b, {верхний придел последовательности} i {счётчик цикла} : integer;var realSqrt {в этой переменной проводим расчёты} : real;

begin Write('Enter A: '); Readln(a); {вводим a} Write('Enter B: '); Readln(b); {вводим b} Write('Square numbers is: '); for i:=a to b do {цикл от a, до b} begin realSqrt:=Sqrt(i); {получаем квадратный корень из числа на текущей итерации цикла} if 0 = frac(realSqrt) then {получаем из этого числа дробную часть, если она равняется 0, то число является "полным квадратом"} begin Write(i, '; '); {выводим данное число на экран} end; end;end.