program p28;

uses Crt;

var N,o1,o2:real;

begin
clrscr;
write('Z ktereho cisla urcit odmocninu ? ');
readln(N);
o1:=1;
repeat
o2:=N/o1;
o1:=(o2+o1)/2;
until trunc(o1*10000)=trunc(o2*10000);
writeln('Odmocnina z cisla ',N:7:5,' je ',o1:5:3);
repeat until keypressed;
end.