Перед тобой рисунок. Поработай вычислительной машиной и закодируй указанную строку рисунка.

Закодируй 7 строчку.

var

  s: string;

  z,z1,i: integer;

begin

  readln(s);

z: =0;

z1: =0;

  for i: =1 to length(s) do

  begin

  if s[i]='м' then inc(z);

  if s[i]='н' then inc(z1);

  end;

if z> z1 then writeln('больше букв м');

if z< z1 then writeln('больше букв н');

if z=z1 then writeln('букв м и н равное количество');

end.

var

a,b: integer;

begin

write('введите в одной строке два целых числа и нажмите < enter> ');

readln(a,b);

if a=b then writeln('числа равны')

else 

if a> b then writeln(a,' больше')

else writeln(b,' больше')

end.

3 отдельное слово

1 строка

5 абзац

2 весь текст

4 произвольный кусок

гласные звуки иероглифами не передавались.