Информатика в Pascal вычислить заданий

Задача №6:

var

       a, b: Integer;

begin

       Read (a, b);

       if a mod 2 = 1 then

               WriteLn (a + b)

       else

               WriteLn (a * b)

end.        

Задача №7:

var

       x, y: Real;

begin

       Read (x);

       if x > 0 then

               y := x - 12

       else

               if x < 0 then

                       y := sqr (x)

               else

                       y := 5;

       WriteLn (y)                

end.