риес 3 этажи ком

Ответ от Александр Погребняк[гуру]
На Паскале

Var a,b,c,d,e:integer;
Begin
Read(a,b,c);
d:=a-b;
if (a>0) and (d<=0) then d:=d-1;
e:=d+c;
if (e>=0) and (d<0) then e:=e+1;
write(e);
End.