CONST
 Name:Array[1..10] of String=('Мыски','Прокопьевск','Междуреченск',
                              'Белово','Березовский','Кемерово',
                              'Новокузнецк','Осинники',
                              'Ленинск-Кузнецкий','Анжеро-Судженск');
TYPE
 DATA=Record
       F_Name:String;
       F_N:Word;
       F_S:LongInt;
       F_Sum:LongInt;
       F_Med:LongInt;
      end;

VAR
 Flat:Array[1..10] of DATA;
 i,j:Integer;

BEGIN
 Randomize;
 For i:=1 to 10 do
  With Flat[i] do
   begin
    F_Name:=Name[i];
    F_N:=Random(200);
    F_S:=F_N*(Random(100)+50);
    F_Sum:=F_S*(Random(40)+30);
    F_Med:=ROUND((1.0*F_Sum)/(1.0*F_N));
   end;
 WriteLn('Исходная таблица:');
 For i:=1 to 10 do
  With Flat[i] do
   begin
    Write(F_Name);
    for j:=length(F_Name) to 25 do write(' ');
    Write(F_N:3);
    Write(F_S:10);
    WriteLn(F_Sum:10);
   end;
 WriteLn;
 WriteLn('Новая таблица:');
 For i:=1 to 10 do
  With Flat[i] do
   begin
    Write(F_Name);
    for j:=length(F_Name) to 25 do write(' ');
    Write(F_N:3);
    Write(F_S:10);
    WriteLn(F_Med:10);
   end;
 ReadLn;
END.