Program Sifrovani;

function sifra(text:String): String;
var i, posun: integer;
    vysledny: String;
begin
  vysledny:='';
  for i:=1 to length(text) do
  begin
    posun:=Ord(text[i])+1;
    vysledny:=vysledny+Chr(posun);
  end;
  sifra:=vysledny;
end;

function Honza(text: String): String;
var zprava: String;
begin
  zprava:=sifra(sifra(sifra(text)));
  Honza:=zprava;
end;

function desifrovani(text:String): String;
var i, posun: integer;
    vysledny: String;
begin
  vysledny:='';
  for i:=1 to length(text) do
  begin
    posun:=Ord(text[i])-1;
    vysledny:=vysledny+Chr(posun);
  end;
  desifrovani:=vysledny;
end;

function Marie(text: String): String;
var zprava: String;
begin
  zprava:=desifrovani(desifrovani(desifrovani(text)));
  Marie:=zprava;
end;

{konec funkc zatek programu}

var email: String;

begin
  email:='';
  email:=Honza('Sejdeme se u lpy!');
  writeln('Maruce se odele tento text:');
  writeln(email);
  writeln('Stiskni libovolnou klvesu pro rozifrovn');
  readln;
  writeln('Maruka text takto rozifruje: ');
  writeln(Marie(email));
  readln;
end.
