Program P70;
 { Execuţia instrucţiunii goto }
label 1, 2;
var x, y : real;
begin
   write('x='); readln(x);
   if x>=0 then goto 1;
   y:=2*x;
   writeln('x<0, y=', y);
   goto 2;
 1 : y:=x;
   writeln('x>=0, y=', y);
 2 : readln;
end.