Program Racine;
Var x : Real;
Begin
Writeln ('Saisir un réel ');
Readln (x) ;
IF x >= 0 Then Writeln ('Racine carrée ', x,' = ', sqrt(x))
Else Writeln ('Donnée incorrecte') ;
End.