program edfr;
uses crt;
var q,w,e:integer;
Begin
writeln('сколько дней в текущем месяце');
readln(q);
writeln('какое сегодня число');
readln(w);
e:=q-w;
writeln('до конца текущего месяца осталось ', e);
readln;
end.