[friz]

вторая

Код:

PROGRAM Ivanov5;
{$APPTYPE CONSOLE}
USES
  	SysUtils;
Const
N=3;
S=2;
VAR
      k:array[1..10] of real;
      a:array [1..10,1..10] of real;
     	i:integer;
      x:real;
begin

      x:=1.02*10000;
      a[1,1]:=3.1; a[1,2]:=1.6;  a[1,3]:=9.3;
      a[2,1]:=1.5;  a[2,2]:=2.3;  a[2,3]:=4.5;
      a[3,1]:=2.2;  a[3,2]:=6.4;  a[3,3]:=4.4;

      for i:=1 to 3 do
      k[i]:=(a[s,i]/a[n,i]);

     	for i:=1 to 3 do
      WriteLn(' k=[',k[i]:8:4,']');

    WriteLn('***** Press <ENTER> to finish *****');
  	Readln;			// задержка экрана
  	Readln;
END.