Даны два целых числа.если они оба четны,то большее из них поделить на 2;если оба нечетные, то каждое умножить на 2; в противном случае нечетное из чисел увеличить на 1.....Помогите в Паскале написать

Var
 a,b,c:longint;
begin
 readln(a,b); if b>a then begin c:=b; b:=a; a:=c; end;
 if (a mod 2=0) and (b mod 2=0) then write(a, : 2 = ,a/2)
 else if (a mod 2=1) and (b mod 2=1) then write(a, * 2 = ,a*2,; ,b, * 2 = ,b*2)
 else if (a mod 2=1) then write(a, + 1 = ,a+1) else write(b, + 1 = ,b+1);
 readln;
end.