Const
 S:Array[0..35] of Char=('А','Б','В','Г','Д','Е','Ж','З','И','Й','К','Л','М','Н','О','П','Р','С',
                         'Т','У','Ф','Х','Ц','Ч','Ш','Щ','Ъ','Ы','Ь','Э','Ю','Я','*','*','*','*');
 Sym:Array[0..5] of Char=('З','А','Щ','И','Т','А');

Var
 M:Array[0..5,0..5] of Char;
 Sif:Array[0..11] of Integer;
 i,j,k,KS:Integer;

Begin
 Writeln('******** Квадрат Полибия (3 метод)! *********');
 k:=0;
 KS:=0;
 for i:=0 to 5 do
  for j:=0 to 5 do
   begin
    M[i][j]:=S[K];
    k:=k+1;
   end;
 Writeln;
 for k:=0 to 35 do Write(S[k]);
 Writeln;
 for i:=0 to 5 do
  begin
   for j:=0 to 5 do Write(M[i][j]+' ');
   Writeln;
  end;
 Writeln;

 for k:=0 to 5 do Write(Sym[k]);
 Writeln;

 for k:=0 to 5 do
  for i:=0 to 5 do
   for j:=0 to 5 do
    if Sym[k]=M[i][j] then
     begin
      Sif[KS]:=i;
      Sif[KS+1]:=j;
      KS:=KS+2;
     end;

 Write('Координаты слова - ');
 for KS:=0 to 11 do write(Sif[KS]);
 Readln
End.