Решить в Паскале
m=max(x,y,z)/min (x,y)+5

//Pascal ABC.NET v3.1 сборка 1172Var x,y,z:integer; m:real; function maxi(x,y:integer):integer;begin if x>y then maxi:=x else maxi:=y;end;function mini(x,y:integer):integer; begin  if x<y then mini:=x else mini:=y; end; beginreadln(x);readln(y);readln(z);m:=maxi(maxi(x,y),z)/mini(x,y)+5;writeln(m);end.Пример ввода:123Пример вывода:8