нарисовать танк и девочку в Кумире

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: array [1..9] of real;

s,p: real;

begin

  p: =1;

  s: =0;

  for i: = 1 to 9 do

  begin

      read(a[i]);

      s: = s+a[i];

      p: =p*a[i];

  end;

  writeln("summa=",s);

  writeln("srednee arefmeticheskoe=",s/n);

  writeln("proizvedenie=",p);

end.

в древнем египте наряду со значками , обозначавшими целые понятия и слова, существовали и другие знаки, обозначавшие слоги и даже отдельные звуки . потребность в таких знаках очевидна, так как не все можно выразить в виде изображений (прежде всего, это касается личных имен).  в этих случаях египтяне превращали слова иероглифы в буквы иероглифы, из которых и составлялись слова, подлежащие передаче на письме согласно их звучанию. например иероглиф «хт» — изображение дома — сделался двухбуквенным иероглифом, обозначающим звук [хт], иероглиф «мн» — изображение шахматной доски — стал иероглифом, обозначающим два звука [мн] и т.д. на первых порах значение фонетических иероглифов было , но со временем их роль все более возрастала, и в последние века существования египетской письменности значение фонетических иероглифов стало господствующим. но к чисто фонографическому письму (то есть такому, где каждый знак обозначает отдельный звук или букву) египтяне так и не перешли . это важное усовершенствование было сделано в письме других народов.

наверно так

a: array [1..100] of longint