{
11 12 13 
21 22 23
31 32 33
11 21 31 
12 22 32
13 23 33
11 22 33
13 22 31
}
const 
  iLine : array [1..8,1..3] of longint=((1,1,1),(2,2,2),(3,3,3),(1,2,3),(1,2,3),(1,2,3),(1,2,3),(1,2,3));
  iRow  : array [1..8,1..3] of longint=((1,2,3),(1,2,3),(1,2,3),(1,1,1),(2,2,2),(3,3,3),(1,2,3),(3,2,1));
var
  s             : array [1..3] of string;
  i,Ans1,Ans2,d : longint;
  w,w1,w2       : string;

  procedure Count(i:longint;var d:longint; var w: string);
    var
      k,j,Line,Row : longint;
      c            : char;
    begin
      k:=0; w:=''; 
      for j:=1 to 3 do 
        begin
          Line:=iLine[i,j];
          Row :=iRow [i,j]; 
          c:=s[Line,Row]; 
          if pos(c,w)=0 then w:=w+c;
        end;
      d:=length(w);
      if (d=2) and (w[1]>w[2])
        then begin c:=w[1]; w[1]:=w[2]; w[2]:=c; end; 
    end;  

begin
  assign(input,'tttt.in'); reset(input);
  assign(output,'tttt.out'); rewrite(output);
  for i:=1 to 3 do readln(s[i]);
  Ans1:=0; Ans2:=0; w1:=''; w2:='';
  for i:=1 to 8 do 
    begin
      Count(i,d,w);
      if (d=1) and (pos(w,w1)=0) then begin inc(Ans1); w1:=w1+w;     end;
      if (d=2) and (pos(w,w2)=0) then begin inc(Ans2); w2:=w2+w+'-'; end;
     end;
  writeln(Ans1);
  writeln(Ans2);
  close(input); close(output);
end.

Что делает Гена Короткевич, когда задача не решается

https://rb.ru/longread/champion/

— Объясни — почему на командных соревнованиях на столе только один компьютер на команду из трех человек? 

— Таковы правила, к тому же очень много работы нужно выполнять не за компьютером. Например, думать над задачами, отлаживать решения.

Если код не работает, команда не может позволить себе искать ошибку за компьютером — на это просто нет времени.

Кто-то из программистов сидит над листом бумаги и ищет ошибку глазами. Соревнования длятся пять часов, то есть на трех человек это 15 человеко-часов. Но за компьютером команда может провести только пять часов — не больше и не меньше. Поэтому компьютерное время становится особенно ценным.  

2. научить Лёху писать компактнее
 

for() {
    ...
}

for()
{
    ...
}

for(i=0;i<n;i++) for(j=0;j<n;j++) {
    if(mk[i][j]) {ans++; continue;}
    h-=t[i];
}

for(i=0;i<n;i++) 
  for(j=0;j<n;j++) {
      if(mk[i][j]) {
          ans++; 
          continue;
      }
      ans-=t[i];
  }

vector<int> graph[N];
...
for(int v=0;v<n;v++) for(int u:graph[v]) {
    ...
}