PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
function Max(a,b,c:real):=Max(Max(a,b),c);
begin
var (x,y,z):=ReadReal3('Введите три числа через пробел:');
Writeln('Максимальное из чисел равно ',Max(x,y,z))
end.