Спо информатике в паскале программу написать надо

const n = 10;

var ar: array[1..n]of integer;

i,j,tmp: integer;

begin

randomize;

write('массив до сортировки: ');

for i: =1 to n do

begin

ar[i]: =random(101)-50;

write(ar[i], ' ');

end;

for i: =1 to n do

begin

for j: =i to n do

begin

if(ar[i] > ar[j])then

begin

tmp: =ar[i];

ar[i]: =ar[j];

ar[j]: =tmp;

end;

end;

end;

writeln();

write('массив после сортировки: ');

for i: =1 to n do

begin

write(ar[i], ' ');

end;

end.

1 одноногий капитан (1 голова - 1 нога); 1 кок (1 голова - 2 ноги);   7 матросов (7 голов -  14 ног);   6 кошек (6 голов - 24 ноги).

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.