program shifrovka;
uses crt;
var
 i:integer;
 text:string;
 res:array[1..255] of real;
begin
 write('Vvedite ishodniy tekst: ');
 readln(text);
 writeln();
 writeln('Shag perviy: izvelchenie nomera simvola: '); 
 for i:= 1 to length(text) do begin
  res[i]:=ord(text[i]);
  write(res[i],' '); 
 end;
 writeln();
 writeln('Shag vtoroy: vozvedenie nomera simvola v kvadrat: ');
 for i:= 1 to length(text) do begin
  res[i]:=sqr(res[i]);
  write(res[i],' '); 
 end;
  writeln(' ');
 writeln('Shag tretiy: pribavim chislo 777: ');
 for i:= 1 to length(text) do begin
  res[i]:=res[i]+777;
  write(res[i],' '); 
 end;
 writeln(' ');
 writeln('Chetvertiy, posledniy shag: podelim rezyltat ppopolam: ');
 for i:= 1 to length(text) do begin
  res[i]:=res[i]/2;
  write(res[i],' '); 
 end;
 writeln(' ');
 writeln('Teper` provedem obratniy perevod: ');
 for i:= 1 to length(text) do begin
  write(chr(trunc( sqrt( ( res[i]*2 ) - 666 ) ) ) );
 end;
 writeln();
end.