Задание 1. ЕГЭ-2010 - Архив: все задания

var
  min, ans: array[92..98] of integer;
  c: char;
  i, k, N, b: integer;
begin
  for i:=92 to 98 do
    begin
      min[i]:=3001;{допустимо и другое число, >3000}
      ans[i]:=0;
    end;
  readln(N);
  for i:=1 to N do
  begin
    repeat
      read(c);
    until c=' '; {считана компания}
    repeat
      read(c);
    until c=' '; {считана улица}
    readln(k,b);
    if min[k] > b then
      begin
        min[k]:=b;
        ans[k]:=1
      end else
    if min[k] = b then ans[k]:=ans[k]+1;
  end;
  {если бензина какой-то марки не было,
  ans[i] осталось равным 0}
  writeln(ans[92],' ', ans[95],' ', ans[98])
end.