Ce rezultate va afişa următorul program?
Program P51
var x, y : real;
begin
write('x='); readln(x);
y:=x;
if x>0 then; y:=2*x;
writeln('y=', y);
readln;
end.​