Написать программу, которая увеличивает на 3 число, вводимое с клавиатуры, если оно больше 0, в противном случае уменьшает это число на 2. Программу написать в тетрадь

var

 a:integer;

begin

 readln(a);

 if a>0 then  

   begin

     a:=a+3;

     writeln(a);

   end

     else

       begin

         a:=a-2;

         writeln(a);

       end;

end.

Перепиши в тетрадь.