Составьте программу, по которой на экран будет выведена вся таблица умножения

Var  b,a: integer;   begin   for b: =1 to 10 do begin   for a: =1 to 10 do begin     writeln(a,'*',b,'=',a*b);   end;   end; end.получается не в виде таблицы  а в столбик

// f# [< entrypoint> ] let main argv =     let generatetable n m =         array2d.init n m (fun i j -> (i+1) * (j+1))     let printmatrix (matrix: int[,]) =         printf "     "         for i = 0 to (array2d.length1 matrix) - 1 do             printf "%4d " (i+1)         printf "\n"         printf "     "         for i = 0 to (array2d.length1 matrix) - 1 do             printf ""         printf "\n"         for j = 0 to (array2d.length2 matrix) - 1 do             printf "%2d |" (j+1)             for i = 0 to (array2d.length1 matrix) - 1 do                 printf "%4d " matrix.[i, j]             printf "\n"         printf "\n"     let inputarray = generatetable 10 10     printmatrix inputarray     system.console.readkey true |> ignore     0

Буквы. ударные или безударные слоги.  сам знаки могут выглядеть как угодно, например, точка-тире.   на ум приходят пдд. напр, на светофоре знак красного человечка "стой", зеленого "иди" и т.д.

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

                                                                           

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.

 

 

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