В таблице приведена стоимость (руб.) проезда между соседними железнодорожными станциями. (Начальную точку смотри в столбике, конечную — в строке наверху.)

A B C D

A 160 190

B 173 164 185

C 99

D 87 67

Стоимость проезда со станции A до станции D —

руб.

От а можно в б а от б можно в с
От с никуда
От б можно в д
От а можно в д

192 рублей стоимость проезда

04₁₀ = 100₂

10₁₀ = 1010₂

1996₁₀ = 11111001100₂

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

program string_7; var s: string; k,l,i: integer; begin write('введите строку: '); readln(s); k: =0; l: =0; for i: =1 to length(s) dobegin if s[i]='н' then k: =k+1; if s[i]='м' then l: =l+1end; writeln('н=',k); writeln('м=',l); if k> l then writeln ('больше букв н'); if k< l thenwriteln ('больше букв м'); if (k = 0) and (l = 0) thenwriteln ('таких букв нет'); end.

так будет элсе выкидывало бы что букв н больше, если бы ни м ни н не встретилось))