Выведите список предприятий, у которых R/S выше чем средний по свей группе

program x;
uses crt;
var x: array [1..2, 1..50] of real;
    i,n: integer;
    s: real;
begin
  clrscr;
  write('Kolichestvo predprijatiy = ');
  readln(n);
  for i:=1 to n do begin
    write('Zatratu predprijatija ',i,' = ');
    readln(x[1,i]);
    write('Pribul predprijatija ',i,' = ');
    readln(x[2,i]);
  end;
  s:=0;
  for i:=1 to n do
    s:=s+x[1,i]/x[2,i];
  s:=s/n;
  writeln('Result:');
  for i:=1 to n do
    if x[1,i]/x[2,i] > s then
      writeln('Predprijatie ',i,' = ',(x[1,i]/x[2,i]):8:3);
  readln;
end.

program y;
uses crt;
var a: array [1..50, 1..50] of real;
    x,y,s: real;
    i,j,n,m: integer;
begin
  clrscr;
  writeln('Vvod razmerov matricu nxm:');
  readln(n,m);
  write('Znachenie X = ');
  readln(x);
  write('Znachenie Y = ');
  readln(y);
  writeln('Vvod matricu:');
  for i:=1 to n do
    for j:=1 to m do begin
      write('Element A[',i,',','] = ');
      readln(a[i,j]);
    end;
  writeln('Ishodnaja matrica');
  for i:=1 to n do begin
    for j:=1 to m do
      write(a[i,j]:8:3);
    writeln;
  end;
  s:=0;
  for i:=1 to n do
    for j:=1 to m do
      if (a[i,j] >= x) and (a[i,j] <= y) then
        s:=s+a[i,j];
  for i:=1 to n do a[i,1]:=s;
  writeln('Rezultiryushjaja matrica');
  for i:=1 to n do begin
    for j:=1 to m do
      write(a[i,j]:8:3);
    writeln;
  end;
  readln;
end.

program qwe;
uses crt;
type TList = record
       name, phone: string[255];
     end;
var x: array [1..50] of TList;
    i, n: integer;
begin
  clrscr;
  write('Kolichestvo kontor = ');
  readln(n);
  for i:=1 to n do begin
    write('Imja kontoru ',i,' = ');
    readln(x[i].name);
    write('Telefon kontoru ',i,' = ');
    readln(x[i].phone);
  end;
  writeln('Kontoru s telefonom nachinaushemsja na 199:');
  for i:=1 to n do
    if copy(x[i].phone,1,3) = '199' then writeln(x[i].name);
  readln;
end.

program qwe;
uses crt;
var x: array [1..50, 1..50] of real;
    i,j,n,m: integer;
    s: real;
begin
  clrscr;
  writeln('Vvod razmerov matricu nxm:');
  readln(n,m);
  writeln('Vvod matricu:');
  for i:=1 to n do
    for j:=1 to m do begin
      write('Element X[',i,',',j,'] = ');
      readln(x[i,j]);
    end;
  writeln('Ishodnaja matrica:');
  for i:=1 to n do begin
    for j:=1 to m do
      write(x[i,j]:8:3);
    writeln;
  end;
  for j:=1 to m do
    if x[2,j] > x[1,j] then begin
      s:=0;
      for i:=1 to n do s:=s+x[i,j];
      x[n,j]:=s;
    end;
  writeln('Resultat:');
  for i:=1 to n do begin
    for j:=1 to m do
      write(x[i,j]:8:3);
    writeln;
  end;
  readln;
end.

program qwe;
uses crt;
var a: array [1..50, 1..50] of real;
    x,y,s: real;
    i,j,n,m: integer;
    F: Text;
begin
  clrscr;
  write('Znachenie X = ');
  readln(x);
  write('Znachenie Y = ');
  readln(y);
  Assign(F,'D:\file.txt');
  Reset(F);
  read(F,n,m);
  for i:=1 to n do
    for j:=1 to m do
      read(f,a[i,j]);
  Close(F);
  writeln('Ishodnaja matrica');
  for i:=1 to n do begin
    for j:=1 to m do
      write(a[i,j]:8:3);
    writeln;
  end;
  s:=0;
  for i:=1 to n do
    for j:=1 to m do
      if (a[i,j] >= x) and (a[i,j] <= y) then
        s:=s+a[i,j];
  for i:=1 to n do a[i,1]:=s;
  writeln('Rezultiryushjaja matrica');
  for i:=1 to n do begin
    for j:=1 to m do
      write(a[i,j]:8:3);
    writeln;
  end;
  readln;
end.

program qwe;
uses crt;
var x: array [1..50, 1..50] of real;
    i,j,n,m: integer;
    s: real; F: Text;
begin
  clrscr;
  Assign(F,'D:\file.txt');
  Reset(F);
  read(F,n,m);
  for i:=1 to n do
    for j:=1 to m do
      read(f,x[i,j]);
  Close(F);
  writeln('Ishodnaja matrica:');
  for i:=1 to n do begin
    for j:=1 to m do
      write(x[i,j]:8:3);
    writeln;
  end;
  for j:=1 to m do
    if x[2,j] > x[1,j] then begin
      s:=0;
      for i:=1 to n do s:=s+x[i,j];
      x[n,j]:=s;
    end;
  writeln('Resultat:');
  for i:=1 to n do begin
    for j:=1 to m do
      write(x[i,j]:8:3);
    writeln;
  end;
  readln;
end.

Program V14_N7;
uses crt;
var
 Shifr      :array[1..6]of string[20];
 Kb,K       :array[1..6]of real;
 S          :real;
 i          :byte;
 F          :text;
BEGIN
clrscr;
assign(F,'V14_N7.txt');
reset(F);
s:=0;
for i:=1 to 6 do begin
 readln(F,Shifr[i],Kb[i],K[i]);
 s:=s+Kb[i]/K[i];
end;
s:=s/6;
writeln('Таксопарки у которых к-т выпуска сост-т 0.5 - 0.8:');
writeln('┌────────────────────┬───────────────────┬───────────────────────┐');
writeln('│  Шифр  таксопарка  │ Кол-во  автомашин │ Кол-во всех автомашин │');
writeln('├────────────────────┼───────────────────┼───────────────────────┤');
for i:=1 to 10 do
 if (Kb[i]/K[i]>=0.5)and(Kb[i]/K[i]<=0.8) then
  writeln('│',Shifr[i],'│',Kb[i]:19:0,'│',K[i]:23:0,'│');
writeln('└────────────────────┴───────────────────┴───────────────────────┘');
writeln('Средний к-т выпуска: ',s:0:4);
while not keypressed do;
close(F);
END.

program qwe;
uses crt;
var x: array [1..2, 1..50] of real;
    i,n: integer;
    F: Text;
    s: real;
begin
  clrscr;
  Assign(F,'D:\db.txt');
  Reset(F);
  read(F,n);
  for i:=1 to n do begin
    read(F,x[1,i]);
    read(F,x[2,i]);
  end;
  Close(F);
  s:=0;
  for i:=1 to n do
    s:=s+x[1,i]/x[2,i];
  s:=s/n;
  writeln('Result:');
  for i:=1 to n do
    if x[1,i]/x[2,i] > s then
      writeln('Predprijatie ',i,' = ',(x[1,i]/x[2,i]):8:3);
  readln;
end.

program qwe1;
uses crt;
type data = record
       name: string[64];
       price: real;
       have,need: integer;
     end;
var x: array [1..50] of data;
    f: file of data;
    i,q,n: integer;
    s: real;
begin
  clrscr;
  writeln('1 - sozdat fail, 2 - otkrut fail:');
  readln(q);
  if q = 1 then begin
    Assign(f,'D:\data.dat');
    Rewrite(f);
    write('Kolichestvo detaley = ');
    readln(n);
    for i:=1 to n do begin
      write('Nazvanie detali #',i,' = ');
      readln(x[i].name);
      write('Cena ',x[i].name,' = ');
      readln(x[i].price);
      write('Nalichie detali ',x[i].name,' = ');
      readln(x[i].have);
      write('Nygnoe kolichestvo = ');
      readln(x[i].need);
      write(f,x[i]);
    end;
    Close(f);
  end
  else if q = 2 then begin
    Assign(f,'D:\data.dat');
    Reset(f);
    n:=0;
    while not eof(f) do begin
      inc(n);
      read(f,x[n]);
    end;
    Close(f);
  end
  else begin
    writeln('Invalid choose!');
    readln;
    exit;
  end;
  s:=0;
  for i:=1 to n do begin
    if x[i].need <= x[i].have then s:=s+x[i].need*x[i].price
    else s:=s+x[i].have*x[i].price+(x[i].need-x[i].have)*3*x[i].price;
  end;
  write('Remont = ',s:9:4);
  readln;
end.