В задание должны быть варианты расстановки символов азбуки Морзе, ты их не привёл(-а), так что решить это невозможно.
Ответ:
ответ 20путь есть.....из города А в город И
//алг цифры;
var N,k:integer; // цел N,K
begin // Нач
Read(N); // ввод (N);
k:=0; // k:=0
while N>=1 do // Пока N>=1
begin // нц
N:=N div 10; // N:=N div 10;
k:=k+1; // k:=k+1
end; // kц
Writeln(k) // Вывод k
end. // кон