Составить программы: (Паскаль) 1-Целое число М вводится с клавиатуры. Если оно неотрицательное, то увеличить его на 3. В противном случае — уменьшить на 3. 2-Дано целое число. Определить является ли оно отрицательным?

1.

program Zadacha;

var M: integer;

begin

 readln(M);

 if(M>=0) then M:=M+3

 else M:=M-3;

 writeln(M)

end.

2. program Zadacha2;

var a:integer;

begin

 read(a);

 if (a<0) then writeln('A - отрицательное')

           else('А - неотрицательное');

end.