Комірка Excel A5 містить формулу: =A$8*$B7-B4. Якою буде формула при копіюванні її у комірку B3?
=B$8*$B5-B2
=С$8*$B5-C2
=B$8*$B4-C2
=B$8*$B5-C3
=B$8*$B5-C2
Комірка Excel E7 містить формулу: =$B8*$C5+D$5. Якою буде формула при копіюванні її у
комірку C5?
=$B6*$C3+B$5
=$B7*$C3+B$5
=$B6*$C4+B$5
=$B6*$C3+C$5
=$B5*$C3+B$5
Комірка Excel E5 містить формулу: =B10*B7+D$5. Якою буде формула при копіюванні її у
комірку D2?
=B7*B4+C$5
=A6*A4+C$5
=A7*A3+C$5
=A7*A4+C$5
=A7*A4+D$5
Комірка Excel C5 містить формулу: =D$8*$B7-A5. Якою буде формула при копіюванні її у
комірку E7?
=F$8*$B9-B7
=D$8*$B9-C7
=F$8*$B9-C7
=F$8*$B9-C6
=F$8*$B8-C7
Комірка Excel E9 містить формулу: =$B8*$F7+D$5. Якою буде формула при копіюванні її у
комірку: C7?
=$B6*$F5+B$5
=$B7*$F5+B$5
=$B6*$F7+B$5
=$B6*$F5+C$5
=$B7*$F6+B$5

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

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.

По логике так:
Надо расположить по возрастанию, то есть первое меньше второго, второе меньше третьего. Поэтому под цифрами 1 и 2 надо поставить "больше": если цифры поменяются местами, то станет "меньше", что нам и надо. Порядок убывания нам не нужен - нужно возрастание, поэтому в 3 пункте "не расположены". Ну а "к пункту" можно только "вернутся")

1)Начало.
2) Сравни первое и второе числа; если первое больше второго , то поменяй их местами.
3)Сравни второе и третье числа; если второе больше третьего, то поменяй их местами.  
4)Если теперь три числа не расположены в порядке убывания, то исполни пункт 5) этого алгоритма; иначе вернись к пункту  2).
5)Конец.