Составить алгоритм таблицы умножения на 7.

Var i: integer; begin for i: =1 to 9 do writeln('7 * ', i, ' = ', 7 * i) end.

Var a: array of real;     i,n,m,k,p: integer;     s: real; begin   write('n = ');   readln(n);   setlength(a,n);   s: =1;   randomize;   writeln('массив: ');   for i: =0 to n-1 do   begin     a[i]: =random(200)/1000;     s: =s*a[i];     write(a[i]: 5: 3,' ');   end;   writeln;   s: =power(s,1/n);   p: =0; m: =0; k: =0;   writeln('среднее : ',s);   for i: =0 to n-1 do   begin     if a[i]< s then inc(m);     if a[i]> s then inc(k);     if a[i]=s then inc(p);   end;     writeln('меньше: ',m,'   равно: ',p,'   больше: ',k); end.n = 10 массив: 0.165 0.133 0.134 0.190 0.151 0.132 0.187 0.028 0.021 0.017  среднее : 0.0854754255570728 меньше: 3   равно: 0   больше: 7

Function s(x1, y1, x2, y2, x3, y3) {   var     a = math.sqrt(math.pow(x1 - x2, 2) + math.pow(y1 - y2,     b = math.sqrt(math.pow(x2 - x3, 2)  + math.pow(y2 - y3,     c = math.sqrt(math.pow(x3 - x1, 2)  + math.pow(y3 - y1, 2));   if ((a == b || b == c || c == a) & & (a*a+b*b == c*c || b*b+c*c ==  a*a || c*c+a*a ==  b*b)) {     var p = (a + b + c) / 2;     return math.sqrt(p * (p - a) * (p - b) * (p - c));   }   else return -1; }