Задача: Для виготовлення жерстяної коробки використовують квадратний лист жерсті. Висота коробки становить b см. Маса 1 см2 жерсті
становить сг. Визначте масу коробки. Побудуйте блок-схему для
розв'язування задачі та реалізуйте відповідну програму.​

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

type adrcel=^element; element=record info: integer; next: adrcel; end; var start,last,new_el: adrcel; i: integer;

procedure del2(var start: adrcel);

var

p: adrcel;

begin

p: =start^.next;

if p< > nil then start^.next: =p^.next

end;

begin start: =nil; last: =nil; new_el: =nil; repeat new(new_el); write('info='); readln(new_el^.info);

new_el^.next: =nil; if start=nil thenstart: =new_el; else begin

last: =start;

while last^.next< > nil do last: =last^.next; last^.next: =new_el; end; write('продолжить? (1-да/0-нет): '); readln(i); until i=0; writeln('удалим 2-й элемент');

del2(start);

new_el: =start; while new_el< > nil do begin write(new_el^.info: 4); new_el: =new_el^.next; end; readln; end.

а:       где хотите, там и бранитесь, а на табаке помиритесь.

б:       умел ошибиться, умей и поправиться.

в:       рожь кормит сплошь, а пшеничка по выбору.

г:       всякая птица свое гнездо любит.

д:       широка дорожка ерошке.

е:       и мед горчит, если его много.

ж:     ржавое железо не блестит.

з:       если мало в привозе, то много в запросе.

и:       истина выдерживает проверку опытом.

к:       вода размывает канал в слабом месте.

л:       глупа та птица, которой гнездо свое не мило.

м:     на ходу подметки режет.

н:       где хвост — начало, там голова — мочало.

о:       всякой молодец на свой образец.

п:       закон — что паутина: шмель проскочит, а муха увязнет.

р:       дело сделал на копейку, а раструбил на всю деревню.

с:     долгие сборы на короткий век.

т:     юность — время золотое: ест, и пьет, и спит в покое.

у:     шито-крыто, а узелок-то тут.

ф:   два фонаря на пустой каланче.

х:     как не хитри, а правды не перехитришь.

ц:     цветет старость сединою.

ч:     к мягкому воску печать, к молодому – ученье.

ш:   шумит дубровушка к погодушке.

щ:   сигарета — щелчок по легким, бутылка пива — удар по почкам,           рюмка водки — убийство печени, кусок сала — прессинг желудка.

э:     каково эхо, такова и конюшня.

ю:   верный вассал двум сюзеренам не служит.

я:     откладывать в долгий ящик.

var s,i,n,a: integer;

begin

  read(a,n);

  s: =1;

  for i : = 1 to n do

      s: =s*a;

  writeln('a в степени n = ',s);

  s: =1;

  for i : = 1 to n do

      s: =s*i;

  writeln(s);

  s: =0;

  for i: = 1 to n do

  begin

    read(a);

    s: = s + a;

  end;

writeln('среднее арифметическое = ',s/n)

end.