Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном...

Question

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

Answer 1

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