Составить алгоритм 1)как сделать уборку; 2)как собраться в школу; 3)как собраться на

2) 

(начало)

|взять портфель|

|наполнить книгами|

|одеть форму|

|надеть портфель|

/к школе готов/

(конец)

3)

(начало)

|надеть одежду|

|взять удочку|

|взять ведро для рыбы|

|взять приманку|

|позвать трех друзей|

|купить пиво|

/к готов/

(конец)

min і max нужно присвоить а[1].

var i,s: integer;

begin

  for i: = 1 to 100 do

      s: = s+ i;

  writeln(s/100);

end.