// 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.
Тестовое решение: Введите через пробел три числа: 6.18 -5 2.11 y=6.18
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.
Тестовое решение:
Введите через пробел три числа: 6.18 -5 2.11
y=6.18