Сделать я хочу быть на 1 месте тему "я горжусь своей страной" (чем, на ваш взгляд, может гордиться россия; почему вы гордитесь нашей страной; считаете ли вы себя патриотом своей страны и оформленное по следующим правилам: объем работы - максимум 2 страницы, шрифт - times new roman кегль - 14 пунктов межстрочное расстояние - 1,5 абзацный отступ - 1 см выравнивание основного текста - по ширине ,

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

  этот город на руси был отдельным княжеством, в этом городе в средние века было 30% образованных людей, когда во всей европе только 15%.

  и т. п.

  думаю, что россия великая страна. я думаю так, потому что я изучаю и знаю, что россия во все времена оказывала влияние на мировое развитие. она одна из великих держав мира.

в богатая культура и наследие. именно в россии самые лучшие ученые и мастера искусства. книги пушкина и достоевского переведенына десятки языков.

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

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

россия богатая страна. здесь много полезных ископаемых.

я горжусь своей страной.

PascalABC.Net

Varian 1:

begin  var n := ReadInteger('Введите размер массива');  var a := ArrRandom(n, 6, 21);  Print(a, 'Srednee: ', a.Average); end.

Varian 2:

var  f: array[1..100] of integer;  i, sum, N: integer;  srednee: real; begin  Writeln('Введите размер массива: ');  Read(N);  sum := 0;  randomize;  for i := 1 to N do  begin    f[i] := random(6, 21);    write(f[i], ' ');    sum := sum + f[i];  end;  srednee := sum / n;  writeln('Srednee: ', srednee:3:3); end.