program pss2pas;  { Programa pritaiko lietuviÕko transliatoriaus programÐ    Tur
bo Paskalio kompiliatoriui } var f,           { duomenÖ byla }     t : text;    
{ rezultatÖ byla }       { simboliÖ keitimo masyvas }     mas  : array[ chr( 0 )
..chr( 255 ) ] of string[ 4 ];     c    : char;     st   : string[ 4 ]; const Ri
m_2_775 : array[ 128..255 ] of byte =    ( ); procedure versti;   var b       : 
( programa, komentaras, eilute );       st, rez : string;       i       : intege
r; begin   b := programa;   st := Paramstr( 1 );   st[ length( st ) - 1 ] := 'a'
;  { *.pss -> *.pas }   Assign( t, st );   Rewrite( t );   while not eof( f ) do
    begin      readln( f, st );      rez := '';      i := 1;      while i <= len
gth( st ) do       begin         if st[ i ] = '{'           then begin          
       if b = programa then b := komentaras;                 rez := rez + '{'   
             end           else if st[ i ] = '}'                  then begin    
                    if b = komentaras then b := programa;                       
 rez := rez + '}'                       end           else if st[ i ] = ''''    
              then begin                         if b = programa then b := eilut
e                           else if b = eilute then b := programa;              
           rez := rez + ''''                       end           else if b = pro
grama                 then rez := rez + mas[ st[ i ] ]   { keisti }             
    else rez := rez + st[ i ];         { nekeisti }         inc( i )       end; 
     writeln( t, rez )    end;   Close(of );  dClose(ote)