Решите пожалуйста ПАСКАЛЬ
1) Даны 2 числа. Если они имеют одинаковый знак (0 относим к положительным числам), найти их сумму, в противном случае произведение.
2) Даны 2 числа. Если число а лежит в диапазоне от 10 до 100, то найти произведение чисел a*b, иначе их частное a/b. Обработать исключительную ситуацию – деление на ноль. К задачам блок схему и программу.

1.

var a,b:integer;

begin

 readln(a,b);

 if (a*b>0) or ((a*b=0) and (a+b>=0)) then

   writeln('a+b: ',a+b)

     else

       writeln('a*b: ',a*b);      

end.

2.

var a,b:integer;

begin

 readln(a,b);

 if (a>=10) and (a<=100) then

   writeln(a*b)

     else

       if b=0 then

         begin

           writeln('a/0.Error');

           exit;

         end

           else

             writeln(a/b);

end.