program test;
var x: integer;
begin
writeln('Введите х');
if x<0 then write (x) else write (2*x);
end.
program test;
var x: integer;
begin
writeln('Введите х');
if x<0 then write (x) else write (2*x);
end.