Сделать в паскале через while

эту программу можно сократить:

var

 s1,s2,a:string;

begin

 Readln(s1);    

 for var i := 0 to 9 do a += IntToStr(i);  

 for var i := 1 to Length(s1) do

 for var k := 1 to 9 do

   if s1[i] = a[k] then s2 += s1[i];

write(s2);    

end.

for var i := 0 to 9 do a += IntToStr(i);

- заполнение массива числами от 0 до 9

for var i := 1 to Length(s1) do

 for var k := 1 to 9 do

   if s1[i] = a[k] then s2 += s1[i];

- двойной цикл проверяющий каждый символ в введенной строке, и в случае если символ = 1 из 10 цифр массива a прибавляет к переменной s2 этот символ

14 км

Объяснение:

Смотрим на граф. Больше всего дорог сходится в пункт Г (5 шт) В таблице так много дорог есть только у населенного пункта П6

Значит Г это П6

Далее

Населенный пункт Д имеет только одну связь, с Г. Смотрим в таблице, кто пересекается только с Г и ни с кем больше, это будет П4

Значит Д это П4

Смотрим, нас. пункт Б не имеет прямой дороги с Г. В таблице видим, что Г не пересекается с П2, значит П2 это Б.

Зато Б имеет связь только с А и В, причем с А немного длиннее чем с В

Смотрим в таблице с кем пересекается Б - с П1=12 км и с П5=8 км. Значит П1 это А, П5 это В.

Остались неназванными 2 пункта П3 и П7, очевидно что это Е и Ж, причем видно что расстояние ГЕ немного меньше чем ГЖ. Смотрим в таблицу: от Г до П3 11 км а от Г до П7 - 9 км. Значит П7 это Е, а П3 это Ж.

Теперь, зная все пункты, в таблице находим расстояние от Е до Ж - 14 км