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.
Объяснение:
Важно: в третьем числа вводить по одному
