Программа для Pascal ABC С клавиатуры вводится 2 числа, если они оба четные, то найти их...

Question

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

Answer 1

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.