Решите, , две . язык программирования: pascalabc.net. с клавиатуры вводятся два числа. вывести на экран меньшее из них. если числа равны, вывести «равны» с клавиатуры вводятся два натуральных числа. вывести на экран четные из них. если четных нет, вывести «нет»

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

№1

begin
  var (a,b):=ReadReal2;
  if a<>b then Writeln(Min(a,b))
  else Writeln('РАВНЫ')
end.

№2

begin
  var (a,b):=ReadInteger2;
  if a.IsEven then Write(a,' ');
  if b.IsEven then Write(b,' ');
  if a.IsOdd and b.IsOdd then Writeln('НЕТ')
end.