Информатика
Задача
Пользователь вводит день(1-30),месяц(1-12),год.
Каждый месяц=30 дням
Ответ: день:месяц;год
Вопрос пользователя:
Как получить ответ, например 12:12:2016
выходит ответ вот такой 12122016
Решение

Var a,b,c,d:Integer;
Begin
Writeln('введите какой день(1-31),месяц(1-12),год');
Readln(a);
Readln(b);
Readln(c);
If (a=28) and (a=29) then (a=1),(b=3);
write('Завтра:',a,b,c);
end.