Question

Срочно! Нужно составить программу на языке ПаскальABC

Answer 1

var x,y:integer;

begin

   readln(x);

   if x > 0 then

       y := 2*x

   else

       y := x - 1;

   writeln(y)

end.