Составить программу нахождения наибольшего из трёх чисел и проверить кратно ли это число трём в Паскале авс

begin

 var Max := ReadSeqInteger(3).Max;

 Print(Max, Max mod 3 = 0)

end.