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

Var a,b: integer;BeginReadln(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.