Turbo Pascal Ввести два числа. Если сумма этих чисел четная, найти произведение, в противном случае, найдите частное этих чисел? срочно. За ранее спасибо

var a,b:integer;c:real;beginreadln(a,b);if ((a+b) mod 2 = 0) then c:= a*belse c:= a/b;writeln(c);readln();end.