============= v-830102.txt,  alias v-05.txt ==============
(* ___________________________________________________ *)                       
(* a *) writeln;                                                                
        e1:=5;                                                                  
        for e1:=e1-2 to e1+2 do write (e1);                                     
(* ___________________________________________________ *)                       
(* b *) writeln;                                                                
        e1:=6;  e2:=3;                                                          
        while e1<12 do                                                          
          begin                                                                 
          repeat  e2:=succ(e2)  until e1 mod 3 = e2 mod 3;                      
          writeln (e1,e2);                                                      
          e1:=e1+e2 div 3;                                                      
        end;                                                                    
(* ___________________________________________________ *)                       
(* c *) writeln;                                                                
        e1:=0;                                                                  
        for ch1:='0' to '9' do                                                  
          if ch1 in (.'2'..'4','7'.)                                            
          then e1:=e1+ord(ch1)-ord('1');                                        
        writeln(e1);                                                            
(* ___________________________________________________ *)                       
(* d *) writeln;                                                                
        h1:=(.1..10.);  h2:=(..);  e1:=2;                                       
        while e1 in h1 do                                                       
          begin                                                                 
          h2:=h2+(.e1..e1+2.);                                                  
          h1:=h1-(.e1.);                                                        
          e1:=(e1+3) mod 3 +1;                                                  
          end;                                                                  
        for e1:=1 to 30 do  if e1 in h2 then write (e1);                        
(* ___________________________________________________ *)                       
(* e *) writeln;                                                                
        e1:=11;  e2:=7;                                                         
        repeat  s(e1,e2);  writeln(e1,e2);  e1:=e1+2;                           
        until  e1<3;                                                            
(* ___________________________________________________ *)                       
(* f *) writeln;                                                                
        e1:=3;  e2:=0;  b1:=e1<=e2;  t2(.1,1.):=b1;                             
        t2(.1,2.):=t2(.1,1.) or (e1 mod 2=1);                                   
        t2(.2,1.):=t2(.1,1.) and t2(.1,2.);                                     
        t2(.2,2.):=not t2(.2,1.) and t2(.1,2.);                                 
        writeln;  write(' ');                                                   
        for e1:=1 to 2 do                                                       
        for e2:=1 to 2 do write(t2(.e1,e2.):6);                                 
(* ___________________________________________________ *)                       
(* g *) writeln;                                                                
        m1:=nil;                                                                
        for e1:=1 to pred(4) do                                                 
          begin  new(m2);                                                       
          with m2@ do                                                           
            begin                                                               
            lanc:=m1;                                                           
            kulcs:=3*e1;                                                        
            end;                                                                
          m1:=m2;                                                               
          end;                                                                  
        while m2@.lanc<>nil do                                                  
          with m2@ do  m2:=lanc;                                                
        writeln(m2@.kulcs);                                                     
(* ___________________________________________________ *)                       
(* h *) writeln;                                                                
        with rect(.1.) do begin nev:='pq';  suly:=6; end;                       
        with rect(.3.) do begin nev:='mn';  suly:=1; end;                       
        with rect(.2.) do begin nev:='zz';  suly:=3; end;                       
        for e1:=1 to 2 do                                                       
        for e2:=e1 to 2 do                                                      
          if rect(.e2.).suly>rect(.e2+1.).suly then                             
            begin                                                               
            e3:=rect(.e2.).suly;                                                
            rect(.e2.).suly:=rect(.e2+1.).suly;                                 
            rect(.e2+1.).suly:=e3;                                              
            end;                                                                
        for e1:=1 to 3 do writeln(rect(.e1.).nev:4);                            
(* ___________________________________________________ *)                       
(* 2 feladat                                                                    
Adott ket, integer elemeket tartalmazo tomb: t1 es t2,
mindketto 1..10 meretu es mindkettoben novekvo
sorrendbe vannak allitva az elemek.
¨rjon olyan eljarast, amely t1 es t2 elemeit egy
t3  1..20 meretu tombbe tolti be csokkeno sorrendben,
osszefesulve. (t3 tehat t1 es t2 elemeit kell, hogy
tartalmazza csokkeno sorrendben.)
(* ___________________________________________________ *)
(* 3 feladat
Keszitendo egy teljes program, amely iteracioval
meghatarozza az   x+ln(x)=0  egyenlet gyoket,
melyrol tudjuk hogy a  0....1  intervallumban van.
A gyok kivant pontossaga legyen bemeneti adat.         *)
(* =================================================== *)
(* 4 feladat
Keszitsen programot, amely a beolvasott egesz szamot
2, 3, 4, ... 10 alapu szamrendszerben kiirja.
Peldaul ha a beolvasott szam 24, a kimenet:
  24 = 11000 (2)
     =   220 (3)
     =   120 (4)
     =    44 (5)
     =    40 (6)
     =    33 (7)
     =    30 (8)
     =    26 (9)
     =    24 (10)                                      *)
(* ___________________________________________________ *)
(* 5 feladat
¨rjon programot, amely egy a standard input allomanybol
beolvasott pascal nyelvu programrol megallapitja, hogy a
szoveg hany szazaleka megjegyzes (komment).
A szamitasnal az ujsor jeleket hagyja figyelmen kivul.
end.