Я. ч. с. м. и. т. ь. б. ю. составить слова с этих букв

Бьют,бить,мяч - больше я не знаю!

Бить не чего в голову не лезет 

Var   rus: set of 'а'..'я';   lat: set of 'a'..'z';   nlat, nrus, i: integer;   s: string; begin   write('введите текст: ');   readln(s);   nrus : = 0; nlat : = 0;   rus : = ['а'..'я'];   lat : = ['a'..'z'];   for i : = 1 to length(s) do       if (s[i] in rus) then nrus : = nrus + 1       else if (s[i] in lat) then nlat : = nlat + 1;   if nrus > nlat then writeln(' букв больше, чем латинских')   else if nrus = nlat then writeln(' и латинских букв поровну')   else writeln('латинских букв больше, чем ') end. тестовое решение: введите текст: такая vot straнная зада4а nam попалac6 ! букв больше, чем латинских

Const n = 4; m = 4; var a: array [,] of integer : =    (( 1,   2,   3,   4),     ( 5,   6,   7,   8),     ( 9, 10, 11, 12),     (13, 14, 15, 16));     i, j, s: integer; begin   writeln('исходная матрица');   for i : = 0 to n-1 do begin     for j : = 0 to m-1 do       write(a[i,j]: 3);     writeln;   end;       for i : = 0 to (m - 1) div 2 do begin     s : = 0;     for j : = 0 to n - 1 do         s : = s + a[j, i*2];     writeln ('сумма в столбце ', i*2: 3, ' = ', s);   end; end.