Напишите программу, которая определяет, является ли введенное число четным и больше 100.

//Скучно//Pascal ABC.NET 3.1 сборка 1256Var a:integer;beginreadln(a);if (a>100) and (not(odd(a))) then writeln('Да') else writeln('Нет');end.Пример ввода:128Пример вывода:Да

// PascalABC.NET 3.1, сборка 1256 от 21.06.2016begin  var n:=ReadInteger('Введите натуральное число:');  if n.IsEven and (n>100) then Writeln('Число четное и больше ста')  else Writeln('Неверно, что число четное и больше ста')end.Тестовое решениеВведите нетуральное число: 146Число четное и больше стаВведите натуральное число: 38Неверно, что число четное и больше стаВведите натуральное число: 101Неверно, что число четное и больше ста