расшифровать слова...

[manchester_alan]

помогите расшифровать кодировку...

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,ip,j,k,mx:integer;
begin
clrscr;
repeat
write('ГђГ*çìåð Г¬Г*Г±Г±ГЁГўГ* äî ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Ââåäèòå ýëåìåГ*ГІГ» Г¬Г*Г±Г±ГЁГўГ*, Гў òîì ÷èñëå ãðóïïû Г·ГҐГІГ*ûõ:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  read(a[i]);
 end;
clrscr;
writeln('ÈñõîäГ*ûé Г¬Г*Г±Г±ГЁГў:');
for i:=1 to n do
write(a[i],' ');
writeln;
ip:=0;//Г*Г*Г·Г*ëî ãðóïïû
i:=1;
mx:=0;//Г¬Г*ГЄГ±ГЁГ¬Г*ëüГ*Г*Гї äëèГ*Г*
while i<=n do
if (a[i] mod 2=0)and((i=1)or(a[i-1]mod 2<>0)) then{åñëè Г·ГҐГІГ*îå ГЁ èëè ïåðâîå
                                                  èëè ïåðåä Г*ГЁГ¬ Г*ГҐ Г·ГҐГІГ*îå}
 begin
  j:=i; {Г*Г*Г·Г*ëî ãðóïïû}
  k:=0;{ГҐГҐ äëèГ*Г*}
  while(j<=n) and(a[j] mod 2=0) do
   begin
    k:=k+1;
    j:=j+1;
   end;
  if k>mx then {åñëè áîëüøå Г¬Г*ГЄГ±}
   begin
    mx:=k;{ГЅГІГ® Г¬Г*ГЄГ±}
    ip:=i;{Г*Г*Г·Г*ëî}
   end;
  i:=i+k;{ïåðåøГ*ГЈГЁГўГ*ГҐГ¬}
 end
else i:=i+1;{ГЁГ*Г*Г·ГҐ ïðîïóñêГ*ГҐГ¬}
if ip=0 then write('Г‚ Г¬Г*Г±Г±ГЁГўГҐ Г*ГҐГІ Г·ГҐГІГ*ûõ ýëåìåГ*òîâ')
else
 begin
  writeln('ÃðóïïГ* Г± Г*Г*èáîëüøèì êîëè÷åñòâîì Г·ГҐГІГ*ûõ ýëåìåГ*òîâ:');
  for i:=ip to ip+mx-1 do {âûâåäåì ãðóïïó}
  write(a[i],' ');
  writeln;
  for i:=1 to mx do {ГіГ¤Г*ëèì ñäâèãГ*ìè âëåâî}
   begin
    for j:=ip to n-1 do
    a[j]:=a[j+1];
    n:=n-1;
   end;
  writeln('ÓäГ*ëåГ*ГЁГҐ ýòîé ãðóïïû:');
  for i:=1 to n do
  write(a[i],' ');
 end;
readln
end.

[Pavia]

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,ip,j,k,mx:integer;
begin
clrscr;
repeat
write('Ркзмер мкссивк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите элемекты мкссивк, в том числе группы четкых:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  read(a[i]);
 end;
clrscr;
writeln('Исходкый мкссив:');
for i:=1 to n do
write(a[i],' ');
writeln;
ip:=0;//ккчкло группы
i:=1;
mx:=0;//мкксимкльккя дликк
while i<=n do
if (a[i] mod 2=0)and((i=1)or(a[i-1]mod 2<>0)) then{если четкое и или первое
                                                  или перед ким ке четкое}
 begin
  j:=i; {ккчкло группы}
  k:=0;{ее дликк}
  while(j<=n) and(a[j] mod 2=0) do
   begin
    k:=k+1;
    j:=j+1;
   end;
  if k>mx then {если больше мккс}
   begin
    mx:=k;{это мккс}
    ip:=i;{ккчкло}
   end;
  i:=i+k;{перешкгивкем}
 end
else i:=i+1;{иккче пропусккем}
if ip=0 then write('В мкссиве кет четкых элемектов')
else
 begin
  writeln('Группк с ккибольшим количеством четкых элемектов:');
  for i:=ip to ip+mx-1 do {выведем группу}
  write(a[i],' ');
  writeln;
  for i:=1 to mx do {удклим сдвигкми влево}
   begin
    for j:=ip to n-1 do
    a[j]:=a[j+1];
    n:=n-1;
   end;
  writeln('Удклекие этой группы:');
  for i:=1 to n do
  write(a[i],' ');
 end;
readln
end.

Часть букв потерял по дороге. Но дальше сами.

[manchester_alan]

Сообщение от Pavia

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,ip,j,k,mx:integer;
begin
clrscr;
repeat
write('Ркзмер мкссивк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите элемекты мкссивк, в том числе группы четкых:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  read(a[i]);
 end;
clrscr;
writeln('Исходкый мкссив:');
for i:=1 to n do
write(a[i],' ');
writeln;
ip:=0;//ккчкло группы
i:=1;
mx:=0;//мкксимкльккя дликк
while i<=n do
if (a[i] mod 2=0)and((i=1)or(a[i-1]mod 2<>0)) then{если четкое и или первое
                                                  или перед ким ке четкое}
 begin
  j:=i; {ккчкло группы}
  k:=0;{ее дликк}
  while(j<=n) and(a[j] mod 2=0) do
   begin
    k:=k+1;
    j:=j+1;
   end;
  if k>mx then {если больше мккс}
   begin
    mx:=k;{это мккс}
    ip:=i;{ккчкло}
   end;
  i:=i+k;{перешкгивкем}
 end
else i:=i+1;{иккче пропусккем}
if ip=0 then write('В мкссиве кет четкых элемектов')
else
 begin
  writeln('Группк с ккибольшим количеством четкых элемектов:');
  for i:=ip to ip+mx-1 do {выведем группу}
  write(a[i],' ');
  writeln;
  for i:=1 to mx do {удклим сдвигкми влево}
   begin
    for j:=ip to n-1 do
    a[j]:=a[j+1];
    n:=n-1;
   end;
  writeln('Удклекие этой группы:');
  for i:=1 to n do
  write(a[i],' ');
 end;
readln
end.

Часть букв потерял по дороге. Но дальше сами.

от души) спасибо

[Вадим Мошев]

Pavia, с помощью чего вы расшифровали?