Дано целое число. если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. вывести полученное число. нужно решить в ! : (

Var x,y: integer;
  begin  x:= -10+random(20);
  if x>0 then y:=x+1 else y:=x;
  writeln('Число ',x,' результат ',y);
end.