Var
n,i,result:Integer;
Begin
Read(n);
result:=-1;
for i:=1 to n do
if (i*i=n) then
begin
result:=i;
break;
end;
Writeln(result);
end.
Program abc;
var
n, i: integer;
s: real;
begin
write('Введите n: ');
readln(n);
for i := 1 to n do
s := s + 1 / i;
write('s= ', s);
end.
var y,x:real;
begin
write('Введите x = ');
readln(x);
if (x<=0) then y:=exp(x) else if x>1 then y:=ln(x) else y:=0;
writeln('y = ',y:0:2);
end.