Введите с клавиатуры два числа a и b . Если оба числа четные , то вычислите их сумки выведите результат на экран .если оба нечетные то найдите произведение этих чисел и выведите результат . Иначе, увеличить все числа в пять раз и выведите результаты

Uses crt; 
var a, b, S, M, New, New1:integer;
begin
write(a = ); read(a);
write(b = ); read(b);
S:=a+b; M:=a*b; New:=5*a; New1:=5*b;
if ((a mod 2)0) and ((b mod 2)0) then write(M = ,M) 
 else if ((a mod 2)=0) and ((b mod 2)=0) then  write(S = ,S); 
  if ((a mod 2)=0) and ((b mod 2)0) then write(New = ,New); 
   if ((a mod 2)0) and ((b mod 2)=0) then write(New1 = ,New1);
end.

Описание:
S=сумма чисел. M=произведение чисел. New=увеличение числа в 5 раз,если 1-ое число четное. New1=увеличение числа в 5 раз,если 2-ое число четное.