program zamena;
const
	n=3;
	k=n*2;
a:array [1..k,1..k] of integer=	((0,2,1,2,5,6),
                             	 (4,5,7,8,1,8),
                             	 (0,6,2,3,3,4),
                          	 (5,6,1,9,7,1),
                          	 (1,2,3,4,5,6),
                          	 (6,5,4,3,2,1));
Var
	buff:integer;
	i:integer;
	j:integer;
Begin
For i:=1 to k Do
		Begin
			For j:=1 to k DO write(a[i,j],' ');
			writeln;
		end;

	For i:=1 to k Do
		Begin
		For j:=n+1 to k Do
			Begin
				If i<=n then
				Begin
					buff:=a[i,j];
					a[i,j]:=a[i+n,j-n];
					a[i+n,j-n]:=buff;
				End;
			End;
		End;
  writeln;
  writeln('RESULT:');
  writeln;
	For i:=1 to k Do
		Begin
			For j:=1 to k DO write(a[i,j],' ');
			writeln;
		end;
  readln;
	
End.

#include <stdio.h>
#include <stdlib.h>
#include <iostream.h>
#include <conio.h>

#define N 4

int m[N][N];
void fill_m();
void out_m();


int cnt[N];

int main()
{
 fill_m();
 out_m();

 for(int i=0;i<N;i++) // idem po personam
 {
  for(int j=0;j<N;j++) // idem po znakomstvam
  {
  if(m[i][j]==1) cnt[i]++;
  }
 }
 int top_m=0; // bolshe vsego znak
 int max=0;
 for(i=0;i<N;i++)
 {
  if(cnt[i]>max) {max=cnt[i]; top_m=i;}
 }


 cout << "\n\nOdna gruppa:\n";
 for(int j=0;j<N;j++)
 {
  if(m[top_m][j]==0) cout << " " << j << " ";
 }
 cout << " & " << top_m << "\n";

 out_m();
getch();
return 0;
}

void fill_m()
{
 for(int i=0;i<N;i++)
 {
  for(int j=0;j<N;j++)
  {
   cout << i << " with " << j <<": ";
   cin >> m[i][j];
  }
  cout << "\n";
 }
}

void out_m()
{
 for(int i=0;i<N;i++)
 {
  for(int j=0;j<N;j++)
  {
  cout << m[i][j];
  }
 cout << "\n";
 }

}

program slova;
Uses Crt;
var
stroka, slovo,s : string;
i, max : integer;
begin
ClrScr;
WriteLn('введите текст с любыми разделителями ');
TextColor(Cyan);
ReadLn(stroka);
stroka:=stroka + '.';
i:= 1; TextColor(LightGreen);
while Length(stroka) <> 0 do
begin

if pos(copy(stroka,i,1),' ,.?!-:;') <> 0

then begin
slovo := copy(stroka,1,i-1);
if length(slovo)=4 then
begin
s:=s+' '+slovo[1];
end
else s:=s+' '+slovo;
delete(stroka,1,i);
i := 1;
end
else i := i+1;
end;
writeln(s);
ReadLn;

end.