Программирование на pascal abc
1.Путем копирования и склеивания получить из слова клоун слово кулон
2.Дано предложение. Определить,каких букв в нем больше: "м" или "н"

1)Program n1;                                                                                                                  var cl,q: string;                                                                                                          begin                                                                                                                  cl:='клоун';                                                                                                         writeln(cl);                                                                                                         cl:=cl[1]+cl[4]+cl[2]+cl[3]+cl[5];                                                                          writeln(cl);                                                                                                                   end.                                                                                                                    2)Program n1;                                                                                                                                 var i,k,k1: integer;                                                                                              st: string;                                                                                                                      x: char;                                                                                                                      begin                                                                                                                  readln(st);                                                                                                                                                x:='м';                                                                                                                 k := 0;                                                                                                                 k1:=0;                                                                                                                         for i := 1 to length(st) do if st[i] = x then k := k + 1;                                                         x:='н';                                                                                                                              for i := 1 to length(st) do if st[i] = x then k1 := k1 + 1;                                                 if(k>k1) then writeln('м больше чем н');                                                                 if(k<k1) then writeln('н больше чем м');                                                                     end.                                                                                                                  

1.var s1,s2:string;begins1:='клоун';s2:=s1[1]+s1[4]+s1[2]+s1[3]+s1[5];writeln('1: ',s2);s2:=copy(s1,1,1)+copy(s1,4,1)+copy(s1,2,2)+copy(s1,5,1);writeln('2: ',s2);end.Результат:1: кулон2: кулон2.var s:string;i,k1,k2:integer;beginwriteln('Введите предложение:');readln(s);k1:=0; k2:=0;for i:=1 to length(s) do case s[i] of 'м': k1:=k1+1; 'н': k2:=k2+1; end;writeln('k1 = ',k1,' k2 = ',k2);if k1>k2 then writeln('Букв "м" больше') else if k1<k2 then writeln('Букв "н" больше')               else writeln('Букв "м" и "н" поровну');end.Пример:Введите предложение:Путем копирования и склеивания получить из слова клоун слово кулонk1 = 1 k2 = 4Букв "н" больше