const n=6;
var a:array[1..n,1..n]of byte;
      i,j:byte;
begin
Randomize;
for i:=1 to n do
  for j:=1 to n do
   a[i,j]:=random(10);
for i:=1 to n do
  a[i,i]:=0;
for i:=1 to n do 
   begin
      for j:=1 to n do
      write(a[i,j],' '); 
      writeln;
   end;
readln;
end.

const n=10;
var p:array[1..n]of byte;
     i,a:byte;
begin
 Randomize;
 for i:=1 to n do
    p[i]:=random(10);
 for i:=1 to n do
    write(p[i],' ');
 writeln;
 write('a= '); readln(a);
 for i:=1 to n do
     if p[i]=a then writeln(i);
 readln;
end.

var a,b,c,d,e,f:byte;
     s1,s2,s_otn:real;
procedure geron(a,b,c:byte;var s1:real);
  var p:real;
  begin
    p:=(a+b+c)/2;
    s1:=sqrt(p*(p-a)*(p-b)*(p-c));
  end;
begin
 write('Введите a b c '); readln(a,b,c);
 write('Введите d e f '); readln(d,e,f);
 geron(a,b,c,s1);
 geron(d,e,f,s2);
 s_otn:=s1/s2;
 writeln('Площадь 1 треугольника ',s1:5:2);
 writeln('Площадь 2 треугольника ',s2:5:2);
 writeln('Отношение площадей ',s_otn:5:2);
 readln;
end.

while keypressed do readkey; {гарантируем пустой буфер перед ожиданием}
readkey;
if (keypressed) then readkey;  {опустошаем буфер, если была нажата клавиша с расширенным скан-кодом}

FUNCTION Fi(x:REAL;n:INTEGER):REAL;
 VAR
  i:INTEGER;
  a,S:REAL;
 BEGIN
  a:=1;
  S:=1;
  FOR i:=1 TO n DO
   BEGIN
    a:=a*SQR(x)/4/i*(2*i-1)/(2*i+1);
    S:=S+a;
   END;
  Fi:=S*x*SQRT(2/Pi);
 END; {Fi}