В конце программы пропущен end;
И еще не описан массив Dt
Города - саки уфа баку, и наверчто тула, если там не тучи а туча слово
реки- урал ока кама волга
слово- майка, корм, балка, папка, губы, лесок, палка, клён, доска, сват, колено
Var s : string;
var t : string;
begin
writeln ('Введите S:');
readln (s);
writeln ('Введите T:');
readln (t);
writeln (s+t);
end.
Перестановки с повторениями
сообщение содержит 3 или 4 цвета.
Вариантов для 3 цвета 3*3*3 = 27
Для 4 цвета подряд 3*3*3*3 = 81
27+81 = 108
S=0
i=1
<======================================
Если A(i, i) не равно 100 то S=S+A(i, i) ||
i=i+1 ||
если i < 6 то перейти на ===================
иначе печатать S (сумма)
вот и алгоритм