8 класс Написать прогу для Паскаля<br /> Буду благодарен

Question

8 класс Написать прогу для Паскаля
Буду благодарен

---

Answer 1

If2.
var a:integer;
begin
write('a = '); readln(a);
if a>0 then a:=a+1 else a:=a-2;
writeln(a);
end.

Пример:
a = 5
6

If3.
var a:integer;
begin
write('a = '); readln(a);
if a>0 then a:=a+1 
       else if a<0 then a:=a-2 else a:=10;<br>writeln(a);
end.

Пример:
a = 0
10