1) даны 2 числа.если произведение этих чисел больше 0, то найти сумму этих чисел, иначе найти разность этих чисел 2) числа,a,b,c . определить какое из чисел четноеb mod 2 =1 на паскаль!

1
program aaa;
var
   a,b:integer;
begin
   readln(a,b);
   if(a*b>0) then writeln(a+b)
      else writeln(a-b);
end.

2
program aaa;
var
   a,b,c:integer;
begin
   readln(a,b,c);
   if(odd(a)=false) then writeln('a - чётное');
   if(odd(b)=false) then writeln('b - чётное');
   if(odd(c)=false) then writeln('c - чётное');
end.