Дистанционная подготовка: Почему не проходят все тесты?
Почему не проходят все тесты?
от Владимир Горчаков - Вторник 17 Ноябрь 2015, 12:09
1506.  
  Что я не учел?

program z1;
var m,n,x1,x2,y1,y2,min1,min2,min3:integer;
function min(x,y:integer):integer;
begin
if x>=y then min:=y
else
min:=x;
end;
begin
readln(n,m,x1,y1);
x2:= n - x1;
y2:= m - y1;
min1:=min(x1,x2);
min2:=min(y1,y2);
min3:=min(min1,min2);
writeln(min3);
end.