Var
a,b,c,y,rez:real;
begin
writeln ('Введите A B C через пробел');
readln(a, b, c);
if (a>b) and(a>c) then begin
y:=a;
writeln('y =',y:0:2);
end
else if (b>a) and (b>c) then begin
y:=b;
writeln('y= ',y:0:2);
end
else if (c>b) and(c>a) then begin
y:=c;
writeln('y =',y:0:2);
end
else if (a=b) and (a=c) then begin
y:=a;
writeln('y= ',y:0:2);
end;
end.