названия:
газпром
лукоил
сургутнефтегаз
роснефть
нефтегаз
факт:
15000
12000
10000
9000
13000
сумма:
500000
600000
450000
550000
400000
рабочие:
100
60
46
28
30

TYPE
 Frm=Record
      Name:String;
      Volume:Longint;
      Profit:Longint;
      Staff:Word;
     end;
VAR
 Org:Array[1..5] of Frm;
 f:Text;
 i,j,Num:Byte;
 Nmin,Nmax,Min_Staff:Word;
 Last_Let:Char;
 Dummy:Frm;

BEGIN
 Assign(f,'D:\data.txt');
 ReSet(f);
 Readln(f);
 For i:=1 to 5 do
  With Org[i] do
   Readln(f,Name);
 Readln(f);
 For i:=1 to 5 do
  With Org[i] do
   Readln(f,Volume);
 Readln(f);
 For i:=1 to 5 do
  With Org[i] do
   Readln(f,Profit);
 Readln(f);
 For i:=1 to 5 do
  With Org[i] do
   Readln(f,Staff);
 Close(f);

 Writeln('Initial data and profit per worker:');
 For i:=1 to 5 do
  With Org[i] do
   begin
    Write(i:1,'  ',Name);
    for j:=length(Name) to 18 do write(' ');
    Writeln(Volume:12,Profit:12,Staff:8,1.0*Profit/Staff:12:2);
   end;
 Writeln;

 Num:=0;
 Write('Minimal number of workers: ');
 Readln(Nmin);
 Write('Maximal number of workers: ');
 Readln(Nmax);
 For i:=1 to 5 do
  If (Org[i].Staff>=Nmin) and (Org[i].Staff<=Nmax) then Inc(Num);
 Writeln(Num,' firms');
 Writeln;

 Min_Staff:=Org[1].Staff;
 j:=1;
 For i:=2 to 5 do
  If Org[i].Staff<Min_Staff then
   begin
    Min_Staff:=Org[i].Staff;
    j:=i;
   end;
 Writeln('The minimal number of workers has '+Org[j].Name);
 Writeln;

 Write('Enter the last letter: ');
 Readln(Last_Let);
 For i:=1 to 5 do
  With Org[i] do
   If Name[length(Name)]=Last_Let then
    begin
     Write(i:1,'  ',Name);
     for j:=length(Name) to 18 do write(' ');
     Writeln(Volume:12,Profit:12,Staff:8);
    end;
 Writeln;

 For j:=1 to 5 do
  for i:=1 to 5-j do
   If Org[i].Profit<Org[i+1].Profit then
    begin
     Dummy:=Org[i];
     Org[i]:=Org[i+1];
     Org[i+1]:=Dummy;
    end;

 Writeln('Ordered by profit decrease:');
 For i:=1 to 5 do
  With Org[i] do
   begin
    Write(i:1,'  ',Name);
    for j:=length(Name) to 18 do write(' ');
    Writeln(Volume:12,Profit:12,Staff:8);
   end;

 Readln;
END.