Даны значения трёх действительных переменных a,b и c. найти наибольшее значение из a,b и c.

//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.
var a,b,c:real;
begin
 readln(a,b,c);
 if a> max(b,c) then writeln(a)
 else if b> max(a,c) then writeln(b)
    else writeln(max(a,c))
end.