Чи для всіх об'єктів на сцені складають програми? Наведи приклади

фон- основной цвет

ЭКОНОМИЧНОСТЬ — одна из основных составляющих успеха хозяйственной деятельности, суть которой заключается в разумной и рациональной экономии

ЭРГОНОМИКА-Научно-практическая дисциплина, изучающая трудовые процессы с целью создания оптимальных условий труда росту его производительности.

Программи́ст — специалист, занимающийся программированием, то есть созданием компьютерных программ.

Пользователь — лицо или организация, которое использует действующую систему для выполнения конкретной функции.

цвет-окраска

программа-Изложение содержания и цели деятельности политической партии, организации или отдельного деятеля.

дизайн-Художественное конструирование предметов быта, интерьеров, промышленных изделий и т. п.

проект-Разработанный план сооружения, устройства чего-н.

меню-Подбор кушаний, а также листок с перечнем их.

качество-Наличие существенных признаков, свойств, особенностей, отличающих один предмет или явление от других.

диалог-литературная или театральная форма устного или письменного обмена высказываниями между двумя и более людьми

интерфейс-граница между двумя функциональными объектами, требования к которой определяются стандартом;

звук-Воспринимаемое слухом физическое явление, порождаемое колебательными движениями частиц воздуха или другой среды.

Високосные года уже не учитывал (найдёте ошибку - не поленитесь написать в комменты)

var a,b,c:integer;
begin
writeln ('Введите сегодняшний день, месяц, год (например, 1 12 2013)');
read(a,b,c);
if (((b=1) or (b=3)or (b=5) or (b=7) or (b=8) or (b=10) or (b=12)) and ((a>=1) and (a<=31))) or ((b=2) and ((a>=1) and (a<=28)) or (((b=4) or (b=6)or (b=9) or (b=11))) and ((a>=1) and (a<=30))) then
begin
writeln ('Сегодня ',a,'.',b,'.',c);
if (((b=1) or (b=3)or (b=5) or (b=7) or (b=8) or (b=10) or (b=12)) and ((a>=1) and (a<=31))) and ((a=31) and (b=12)) then writeln ('Завтра 1.1.',c+1) else
if (((b=1) or (b=3)or (b=5) or (b=7) or (b=8) or (b=10) or (b=12)) and ((a>=1) and (a<=31))) and ((a=31) and (b<>12)) then writeln ('Завтра 1.',b+1,'.',c) else
if (((b=1) or (b=3)or (b=5) or (b=7) or (b=8) or (b=10) or (b=12)) and ((a>=1) and (a<=31))) and ((a<>31) and (b=12)) then writeln ('Завтра ',a+1,'.',b,'.',c) else
if ((b=2) and ((a>=1) and (a<=28))) and ((a=28) and (b=12)) then writeln ('Завтра 1.1.',c+1) else
if ((b=2) and ((a>=1) and (a<=28))) and ((a=28) and (b<>12)) then writeln ('Завтра 1.',b+1,'.',c) else
if ((b=2) and ((a>=1) and (a<=28))) and ((a<>28) and (b=12)) then writeln ('Завтра ',a+1,'.',b,'.',c) else
if (((b=4) or (b=6) or (b=9) or (b=11))) and ((a>=1) and (a<=30)) and ((a=30) and (b=12)) then writeln ('Завтра 1.1.',c+1) else
if (((b=4) or (b=6) or (b=9) or (b=11))) and ((a>=1) and (a<=30)) and ((a=30) and (b<>12)) then writeln ('Завтра 1.',b+1,'.',c) else
if (((b=4) or (b=6) or (b=9) or (b=11))) and ((a>=1) and (a<=30)) and ((a<>30) and (b=12)) then writeln ('Завтра ',a+1,'.',b,'.',c) else
writeln ('Завтра ',a+1,'.',b,'.',c);
end else
writeln ('Неправильная дата');
end.