Даны два целых числа. если они оба четны, то большее из них поделить на 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.