напишите программу в паскале котороя находит из двух чисел четное

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017// Внимание! Если программа не работает, обновите версию!begin  var (a,b):=ReadInteger2;  if a.IsEven then Writeln(a,' - четное')  else Writeln(b,' - четное')end.Примеры3 1818 - четное10 710 - четное7 99 - четное - это неверно, нарушено условие (нет четных)6 126 - четное - это верно, хоть условие и нарушено (оба четных)