ответ который он будет выводить 6 ,-1, 5, т.к.
1) на 1-ый ход -2<3 тогда В=3 А=4 С=7
2) на 2-ой 1<4 тогда В=1 А=5 С=6
3) на 3-ий 4<5 тогда В=-1 А=6 С=5
4) 7>6 тогда этот цикл закончивается и выводит А=6 В=-1 С=5
Для текущего месяца (т.е. только для октября, потому что не было указано в вопросе учитываются другие месяцы или нет)
program zd;
const
b=26;
var
a,c:byte;
begin
writeln('Введите день');
readln(a);
if a<b then {проверяется условие, если введенный день меньше заданного дня, то вычислить оставшиеся дни}
c:=b-a
else {иначе вывести смс}
writeln('Данный день уже прошёл');
writeln('Осталось', с, 'дней');
end.
Вроде бы правильно) извиняюсь за исправления, просто тороплюсь
Использовал оперативную память