uses
math;
var
n, a, b: integer;
begin
assign(input, 'input.txt'); reset(input);
assign(output, 'output.txt'); rewrite(output);
read(n, a, b);
write(min(n - abs(a - b), abs(a - b)) - 1);
end.
Update:
> пишет ошибку компиляции min он не понимает.
На acmp.ru используется delphi
http://acmp.ru/article.asp?id_text=120 -- он понимает.
Но если ты настолько альтернативно одаренный, что не можешь сам реализовать функцию Min, то так уж и быть, я тебе ее тут напишу:
function min(a, b: integer): integer;
begin
if a < b then min := a else min := b;
end;
Вставишь ее вместо строк:
uses
math;
и распишите все поподробнее пожалуйста.