program valik;
var x, vastus:real;
begin
 writeln('Kirjuta ks arv!');
 readln(x);
 if x>=0 then
 begin 
    vastus:=sqrt(x);
    writeln('Selle arvu ruutjuur on ', vastus:6:2);
 end
 else
 begin
    writeln('Negatiivsest arvust ei saa ruutjuurt vätta.');
    writeln('Selle arvu p””rdv„„rtuse ruutjuur on ',sqrt(-x):4:1);
    writeln('Teine kord vali suurem arv!');
 end;
end.