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

Var a,b:integer;
c:real;
begin
readln(a,b);
if ((a+b) mod 2 = 0) then c:= a*b
else c:= a/b;
writeln(c);
readln();
end.