Составьте предложения по схеме на тему наши школьные дела

1приготовится к уроку,2.слушать учителя на уроке.,3.все записывать,что говорит учитель. p.s как поняла так и ответила надеюсь )

1var i,sum: integer;       mas: array [1..10] of integer; begin      for i: =1 to 10 do begin                mas[i]: =random(20);                     write(' ',mas[i]);                   sum: =sum+mas[i];                                               end;   writeln;       write('среднее арифметическое этих чисел  = ',sum/10); end. 2  var i,max: integer; begin  readln(i);         while (i< > 0) do begin            if (i> max) then max: =i;                 readln(i);                               end;       writeln('максимальное число: ',max); end.

Var   a: array [1..12] of real;   //массив стоимости   s: real;                         //сумма   i: integer; begin   s: = 0;   for i: = 1 to 12 do   {12 раз вводим стоимость предмета и прибавляем ее к значению s}   begin     writeln('введите стоимость предмета');     readln(a[i]);     s: = s + a[i];   end;   writeln('общая стоимость всех предметов:   ', s); end.