Программа для pascal abc с клавиатуры вводится 2 числа, если они оба четные, то найти их разность, иначе вычислить сумму модулей

Var one, two, res: integer;
begin
write('Введите первое и второе число: ');
read(one, two);
if (one mod 2 = 0) and (two mod 2 = 0) then
res:=one-two
else
res:=abs(one)+abs(two);
writeln(res)
end.