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.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.