// PascalABC.NET 3.1, сборка 1200 от 13.03.2016 var a,b,c,y:real; begin Write('Введите через пробел три числа: '); Read(a,b,c); if a>b then y:=a else y:=b; if c>y then y:=c; Writeln('y=',y) end.
<u><em>Тестовое решение:</em></u> Введите через пробел три числа: 6.18 -5 2.11 y=6.18