Вводятся три числа. Нужно составить из них величайшее возможное четное число.Знаю,

Там необходимо, чтобы одно было отлично от нуля(желая бы однт) и хотя бы одно кратно 2

Да я это разумею, но туплю с оформлением. По идее необходимо через массивы, ибо по-иному длинно..

Согласна) только я туплююю

// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var L:=ReadSeqInteger('Введите через пробел три цифры',3).ToList;
  if L.All(x-gt;x=0) then Writeln('Желая бы одна цифра должна отличаться от нуля')
  else
    if L.All(x-gt;x.IsOdd) then Writeln('Желая бы одна цифра обязана быть четной')
    else begin
      var d3:=L.Where(x-gt;x.IsEven).Min;
      L.RemoveAt(L.FindIndex(x-gt;x=d3));
      var s:=L.OrderBy(x-gt;x);
      Writeln(s.Last,s.First,d3)
      end
end.

Образцы:
Введите через пробел три числа 2 0 5
520

Введите через пробел три числа 0 5 0
500

Введите через пробел три числа 3 9 5
Желая бы одна цифра обязана быть четной