=============== v-820103.txt,  alias V-02.txt ===========
(* ___________________________________________________ *)                       
(* a *) writeln;                                                                
        e1:=3; e2:=9*e1 div 2;                                                  
        for e3:=succ(e2) downto pred(e1) do                                     
        begin                                                                  
          b1:=e3 mod 5=1;                                                        
          if b1 and (e3>7) then writeln(e3);                                     
        end;                                                                   
(* ___________________________________________________ *)                       
(* b *) writeln;                                                                
        e3:=0;                                                                  
        for l1:=alberlet to kastely do                                          
        begin                                                                 
          e2:=0;                                                                
          repeat                                                                
                e2:=e2+2;                                                       
          until e2>=ord(l1);                                                    
          e3:=e3+e2;                                                            
        end;                                                                  
        writeln(e3);
(* ___________________________________________________ *)                       
(* c *) writeln;                                                                
        writeln; write(' ');                                                    
        for e1:=ord('0') to ord('9') do                                         
          write(chr(e1));                                                        
(* ___________________________________________________ *)                       
(* d *) writeln;                                                                
        e1:=1;                                                                  
        repeat                                                                  
          e2:=1;                                                                
          repeat                                                                
            t2(.e1,e2.):=e1+e2>2;                                               
            e2:=succ(e2);                                                       
          until e2>2;                                                           
          e1:=succ(e1);                                                         
        until e1>2;                                                             
        for e1:=1 to 2 do                                                       
        begin                                                                 
          writeln; write(' ');                                                  
          for e2:=1 to 2 do                                                     
            write(t2(.e1,e2.));                                                 
        end;                                                                  
(* ___________________________________________________ *)                       
(* e *) writeln;                                                                
        for e1:=1 to 3 do                                                       
         with  rect(.e1.) do                                                    
          begin                                                                 
            suly:=e1 div 2 +1;                                                  
            if e1<2 then nev:='ab'                                              
            else                                                                
            if e1 mod 3=0 then nev:='ac'                                        
            else nev:='aa';                                                     
          end;                                                                  
        for e1:=1 to 2 do                                                       
        if rect(.e1.).nev<rect(.e1+1.).nev then                                 
           writeln(' ',rect(.e1.).nev)                                          
        else                                                                    
           writeln(rect(.e1.).suly);                                            
(* ___________________________________________________ *)                       
(* f *) writeln;                                                                
        m1:=nil;                                                                
        for e1:=1 to 3 do                                                       
          begin                                                                 
          new(m2);                                                              
          with m2@ do                                                           
            begin                                                               
            kulcs:=e1;                                                          
            lanc:=m1;                                                           
            end;                                                                
          m1:=m2;                                                               
          end;                                                                  
        m2:=m2@.lanc; new(m3); m3@.kulcs:=9;                                    
        m3@.lanc:=m2@.lanc;                                                     
        m2@.lanc:=m3;                                                           
        m2:=m1;                                                                 
        while m2<> nil do                                                       
          begin                                                                 
          writeln(m2@.kulcs);                                                   
          m2:=m2@.lanc;                                                         
          end;                                                                  
(* ___________________________________________________ *)                       
(* g *) writeln;                                                                
        e1:=9; e2:=4;                                                           
        while not f(e1,e2) do                                                   
          begin e1:=pred(e1); writeln(e1);                                      
          end;                                                                  
(* ___________________________________________________ *)                       
(* h *) writeln;                                                                
        h1:=(..);  h2:=(..);                                                    
        for e1:=1 to 30 do                                                      
          begin                                                                 
          if e1 mod 2 =0 then h1:=h1+(.e1.);                                    
          if e1 mod 4 =0 then h2:=h2+(.e1.);                                    
          end;                                                                  
        h1:=h1-h2;                                                              
        for e1:=1 to 30 do                                                      
          if e1 in h1 then writeln(e1);                                         
(* ___________________________________________________ *)                       
(* 2 feladat                                                                    
   ¨rjon programot, amely egy 87 elemu tombbe beolvas
   87 egesz szamot es kiirja, hogy a legnagyobb
   abszolut erteku szam pozitiv, negativ vagy 0-e ?    *)
(* ___________________________________________________ *)
(* 3 feladat
   Keszitsen programot, amely a beolvasott szoveget
   sorhelyesen kiirja es minden szo elso betujet ketszer
   nyomtatja. Szonak szamit a betuvel kezdodo karakter-
   sorozat a kovetkezo szokoz vagy ujsor jelig.
   pl:  ez 2 szo       eez 2 sszo                      *)
(* =================================================== *)

(* 4 feladat
   ¨rjon egesz tipusu fuggvenyt, amely parameterkent egy
   33 elemu, char tipusu elemeket tartalmazo tombot es
   egy char tipusu erteket kap. Ha ez a karakter megegye-
   zik a tomb valamelyik elemevel, akkkor a fuggveny erte-
   ke legyen ennek az elemnek az indexe, ha a tombben
   nincs ilyen elem, akkor az fuggveny erteke legyen 0.
   ha tobb megfelelo elem is van, akkor a legkisebb
   megfelelo index -1 szerese legyen a fuggveny erteke. *)
(* ___________________________________________________ *)
(* 5 feladat
   Nevezzuk egy termeszetes szam forditottjanak azt a
   szamot, amely ugyanazokbol a decimalis szamjegyekbol all, 
   de forditott sorrendben, elhagyva az ertektelen nullakat
   a szam elejerol. Pl. 134 forditottja 431, 7500 for-
   ditottja pedig 57.
   ¨rjon programot, amely beolvas 7 termeszetes szamot
   es kinyomtatja a szamokat es a forditottjukat is.   *)
(* ___________________________________________________ *)
(* 6 feladat
   ¨rjon programot, amely megkeresi es kinyomtatja a
   10000-nel kisebb ikerprimeket (azaz olyan primszam
   parokat, amelyek egymast koveto paratlan szamok,
   Pl: 11,13 ).                                        *)
(* ___________________________________________________ *)