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