Ввести три числа. Выбрать и напечатать наибольшее из них.( полное решение)
Var a, b, c: integer; begin readln(a, b, c); writeln(max(a, max(b, c))); end.