Program P71;
 { Excluderea instrucţiunii goto din programul P70 }
var x, y : real;
begin
 write('x='); readln(x);
 if x>=0 then
            begin
               y:=x;
               writeln('x>=0, y=', y);
            end
         else
            begin
               y:=2*x;
               writeln('x<0, y=', y);
            end;
 readln;
end.