{ ZBOJNIK.PAS                                                        }
{ Program prepíše zadaný text do zbojníckej reči.                    }
{ Každé písmeno sa nahradí písmenom, ktoré je v (cyklickej) anglickej}
{ abecede o n znakov ďalej, ostatné znaky ostanú bez zmeny.          }
{                                                                    }
{ Datum:16.11.2006                             http://www.trsek.com  }

program zbojnik;

var txt : string;
      i : integer;
     ch : char;

begin
  Writeln('Prepis textu do zbojnickej reci.');
  Write('Zadaj text:');
  ReadLn(txt);

  for i:=1 to length(txt) do
   begin
     ch:=txt[i];
     write(ch);

     { je to spoluhlaska? }
     if( Upcase(ch) in ['B','C','D','F','G','H','J','K','L','M','N','P','R','S','T','V','W','X','Z'])then
         write('o',ch); 
   end;

  Readln;
end.