Var m,n,x,y,h,m1,m2,min:integer;
begin
readln(m,n,x,y);
if m>n then begin h:=m; m:=n; n:=h; end;
if m-x
end.
Пример:
10 25 7 3
3
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.