var x,y:real;

begin

readln(x);

if x<0 then writeln('Oshibka') else begin y:=sqrt(x); writeln('y=',y); end;

end.

program kvadr;

var x, y: real ;

begin

write('введите значение x');

read(x);

if x > 0

then begin Y:=sqrt(x) ;

end;

write(Y)

else write('у не существует')

end.