Напишите программу для Pascal (найти больше число из 3)
для чисел
5 1 5
1 2 4
4 4 1
5 5 5
4 2 5
2 5 4

ит

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

begin

 loop 6 do

   ReadSeqInteger('==>',3).Max.Println

end.