program z6;
  
  type
  cl = record
  name: string[20];
      familia: string[45];
      year: integer;
      bukva: string;
    end;
  
  var
  kl: array [1..100] of cl;
  i, n, c: integer;
  
  begin
  Write('Введите количество учеников= ');
  readln(n);
    for i := 1 to n do
  begin
  writeln('Введите сведения о ', I, '-м ученике:');
  write('Имя ');
      readln(kl[I].name);
      write('Фамилия ');
      readln(kl[I].familia);
      write('Класс ');
      readln(kl[I].year);
      write('Буква ');
      readln(kl[I].bukva);
    end;
    writeln; 
    c := 0;
    for i := 1 to n - 1 do 
    begin
      if ((kl[I].year = 8) and (kl[I].familia = kl[I + 1].familia)) then inc(c); 
    end;
    if c >= 1 then writeln('Однофамильцыесть') else write('Однофамильцевнет'); 
  end.

type
 cl = record
       name: string[20];
       familia: string[45];
       year: integer;
      end;

var
 kl: array [1..100] of cl;
 i,j,n: integer;
 b:boolean;

begin
 Write('Enter the number of pupils ');
 readln(n);
 for i := 1 to n do
  begin
   writeln('Enter the data for ', i, '-th pupil:');
   write('Name: ');
   readln(kl[i].name);
   write('Surname: ');
   readln(kl[i].familia);
   write('Year: ');
   readln(kl[i].year);
  end;
  writeln;
  b:=false;
  for i:=1 to n-1 do
   for j:=i+1 to n do
    if (kl[i].year=8) and (kl[j].year=8) and (kl[i].familia=kl[j].familia) then b:=true;
  if b then writeln('Namesakes present') else write('No namesakes');
 Readln
end.