Ответ:

1. var a: integer;

begin

   readln(a);

   if a>=0 then

      a:=a+1

   else

       a :=a;

       writeln(a)

end.

2.var a: integer;

begin

   readln(a);

   if a>0 then

      a:=a+5;

   if a=0 then

      writeln(0)

   else

       a :=a-1;

   writeln(a)

end.

3.

var a,b: integer;

begin

   readln(a);

   readln(b);

   if a>b then

      writeln(a+b)

   else

       writeln(a*b);

end.

Объяснение:

Важно: в третьем числа вводить по одному