Составить программу которая вычетает значения вырожения y=x1/√2

var x,y,z:real;

begin

     write('x= ');

     read (x);

     z:=1/sqrt(2);

     y:=x*z;

     writeln('y=',y);

end.