Решить задачу в Паскале:
Найти сумму чисел а и b, если оба чётные и неотрицательные их произведение в противном случае.
ПОМОГИТЕ!!!

Var a,b: integer;
Begin
Readln(a,b);
If (a mod 2=0) and (b mod 2=0) and (a>0) and (b>0) then write(a+b) else write(a*b);
End.