.


- 5


end;

if

p=0

then

begin

write(' ', n, ' ');

writeln(' ')

end

else

writeln(' ', p)

end.

 


7

 

Program Task7;

uses WinCrt;

var

m, n, i, k, k1 : longint;

begin

write(' '); readln(m);

write(' '); readln(n);

write(' ');

for i := m to n do

begin

k := round(sqrt(i));

k1 := round(sqrt(i*10 + 1));

if (k*k = i) and (k1*k1 = i*10 + 1) then

write(i, ' ')

end

end.