Записи

type 
  Monument=record
    name, full_name: char;
    square, height: real;
  end;
  
type
  num= array[1..50] of monument;  
var
 r, g:integer;
 resh, resh2, resh3:num;
 
procedure Enter(var vvod:num);
var i:integer;
  begin
    for i:=1 to r do begin
      readln(vvod[i].name);
      readln(vvod[i].full_name);
      readln(vvod[i].square);
      readln(vvod[i].height);
    end;
  end;
  
procedure Highest(var z:num);
var 
   i:integer;
   max:real; 
   count:monument;
  begin
    max:=z[1].height;
    for i:=1 to r do 
      if z[i].height>max then begin
        max:=z[i].height;
        count:=z[i];
      end;
  end;
  
procedure Smallest(var z:num);
var
  i:integer; 
  min:real; 
  count:monument;
  begin
    min:=z[1].square;
    for i:=1 to r do
      if z[i].square<min then begin
        min:=z[i].square;
        count:=z[i];
      end;
  end;
  
procedure Counter(var z:num; k:integer);
var
  i, j:integer;
  c:char;
  begin
    for i:=1 to r do begin
      c:=z[1].full_name;
      for j:=2 to r do begin
        if c=z[i].full_name then Inc(k);
      end;
    end;
  end;
  
procedure Output(var z, y, j:num; k:integer);
var i:integer;
  begin
    write('A) ');
    writeln(z);
    write('B) ');
    writeln(y);
    write('C) ');
    for i:=1 to r do
      writeln(j[i].full_name, '(', k, '):', j[i].name, ';');
  end;  
        
 
begin
  readln(r);
  Enter(resh);
  resh2:=resh;
  resh3:=resh;
  Highest(resh);
  Smallest(resh2);
  Counter(resh3, g);
  Output(resh, resh2, resh3, g);
end.