Даны 2 числа, если первое чётное,а второе нечётное, найти их сумму, если нет, то найти разность

Паскаль

Var a, b:integer;

begin

Readln(a) ;

Readln(b) ;

If a mod 2=0 And b mod 2 <>0 then writeln(a+b)

Else writeln (a-b) ;

end.