На рекламном сайте компании компьютерной техники написано

program nm12;

var a, d : integer;

begin

    writeln (' vvedite diametr kruga i storony kvadrata ');

    readln (d);

    readln (a);

    if d< =a then writeln (' krug pomestits9 v kvadrate ')

              else writeln (' krug ne pomestits9 v kvadrate ');

    readln;

end.

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

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.

64*48*12*8=294,912- обьем в байтах 1 стр