н или м

Ответ от Jurii[гуру]
Код программы:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
var
N, M : byte; // Размеры бассейна
x, y : byte; // Введённые расстояния до бортов
x1, y1 : byte; // Расстояния до других бортов
r : byte; // Минимальное расстояние
begin
repeat
Write('Введите размеры бассейна N, M и расстояния x и y через пробел : ');
ReadLn(N, M, x, y);
if N = M then
WriteLn('Размеры бассейна N и M должны быть различными. ');
if x >= N then
WriteLn('Расстояние x до борта должно быть меньше N.');
if y >= M then
WriteLn('Расстояние y до борта должно быть меньше М. ');
if (M > 100) or (N > 100) then
WriteLn('Размеры не должны превышать 100.');
until (N <> M) and (x < N) and (y < M) and (N <= 100) and (M <= 100);
// Расстояния до других бортов
x1 := N - x;
y1 := M - y;
r := x; // предположим, что минимальное расстояние = x
// Проверим остальные расстояния
if r > x1 then r := x1;
if r > y then r := y;
if r > y1 then r := y1;
WriteLn('Расстояние до ближайшего бортика : ', r);
end.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Результаты исполнения:
Введите размеры бассейна N, M и расстояния x и y через пробел : 30 40 20 15
Расстояние до ближайшего бортика : 10