Написать блок схему алгоритма и программу которая вычисляет средний рост учеников подгруппы , тема массивы в паскале

Var   a: array[1..4] of integer;   i,j,r,p: integer; function hod(c,b: integer): integer;   begin   while c< > b do     if c> b       then         c: =c-b     else       b: =b-c;   hod: =c;   end; function hok(c,b, rr: integer): integer;   begin   if ((c mod b=0) or (b mod c=0)) and ((c div b > 1) or (b div c > 1))     then       begin         if c> b             then             hok: =c           else           hok: =b;       end     else       hok: =(c*b)  div  rr;   end; begin   a[1]: =36;   a[2]: =54;   a[3]: =18;   a[4]: =15;   p: =1;   r: =hod(a[1],a[2]);   p: =hok(a[1], a[2], r);   for i: =3 to 4 do   begin     r: =hod(r, a[i]);     p: =hok(p, a[i],r);   end;   writeln('hok = ',p); end.

3) var x, y, min, max: real; label m1; begin write('x='); readln(x); write('y='); readln(y); if x> y then begin min: =x; max: =y; goto m1; end else min: =y; max: =x; goto m1 m1: writeln('min=', min: 8: 3, '  max=', max: 8: 3); end. 2) var a, b, c: real; begin write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); if (a=b) and (b=c) then begin writeln('треугольник равносторонний'); end else writeln('треугольник неравносторонний'); end. 1) var a, b: real; begin write('допустимая скорость ='); readln(a); write('скорость водителя ='); readln(b); if (a=b) or (a> b) then writeln('водитель не превысил скорость'); if a< b then writeln('водитель превысил скорость'); end. я надеюсь, что я правильно поняла первой и второй о: