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.
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.