Маша плавает в бассейне, который представляет собой прямоугольник n на m метров. маше определить какое минимальное расстояние ей нужно проплыть, чтобы выйти из бассейна, если расстояние от левого борта до маши x метров, а от нижнего – y.

Var n,m,x,y,min:integer; 
begin
write('n, m:');
readln(n,m);
write('x, y:');
readln(x,y);
if x<n-x then min:=x else min:=n-x;
if y<min then min:=y;
if m-y<min then min:=m-y;
writeln('min = ',min);
end.

Пример:
n, m:
10 25
x, y:
4 22
min = 3