================== v-820104.txt,  alias v-03.txt ==============
{ ___________________________________________________ }
{ a } writeln;
        h1:=[1..5,7,9]; h2:=[4..7,14];
        h3:=h1*h2;
        h1:=[5,7];
        if h1<=h3 then
           for e1:=1 to 30 do
             if e1 in h1 then writeln(e1:3);
{ ___________________________________________________ }
{ b } 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);
{ ___________________________________________________ }
{ c } writeln;
        e1:=3; e2:=4;                                                           
        if f(e2-e1,e1) then s(e1,2*e1) else s(e2,e2);                           
{ ___________________________________________________ }
{ d } writeln;
        new(m1); m1@.kulcs:=5;                                                  
        new(m2);                                                                
        with m2@ do                                                             
          begin                                                                 
          kulcs:=7;                                                             
          lanc:=m1;                                                             
          end;                                                                  
        m3:=m2; new(m2);                                                        
        with m2@ do                                                             
          begin                                                                 
          kulcs:=9;                                                             
          lanc:=m3;                                                             
          end;                                                                  
        m1@.lanc:=m2; m3:=m2; e1:=0;                                            
        while e1<20 do                                                          
          with m3@ do                                                           
            begin                                                               
            e1:=e1+kulcs;                                                       
            m3:=lanc;
            end;                                                                
        writeln(e1);                                                            
{ ___________________________________________________ }
{ e } writeln;
        for e1:=1 to 10 do                                                      
          t1[e1]:=10;
        for l1:=alberlet to foberlet do                                         
          t1[succ(ord(l1))]:=3;
        for e1:=1 to 5 do                                                       
          writeln(t1[e1]);
{ ___________________________________________________ }
{ f } writeln;
        write(' '); ch1:=chr(succ(ord(succ('0'))));                             
        e1:=0;                                                                  
        for ch2:=ch1 to '5' do                                                  
          e1:=succ(e1);                                                         
        writeln(e1);                                                            
{ ___________________________________________________ }
{ g } writeln;
        with rect[1] do
          begin                                                                 
          nev:='ab';                                                            
          suly:=1;                                                              
          end;                                                                  
        with rect[2] do
          begin                                                                 
          nev:='cd';                                                            
          suly:=7;                                                              
          end;                                                                  
        with rect[3] do
          begin                                                                 
          nev:='aa';                                                            
          suly:=10;                                                             
          end;                                                                  
        if rect[1].nev>rect[2].nev then
            writeln(rect[1].suly/10)
        else                                                                    
          if rect[2].nev<rect[3].nev then
             writeln(rect[2].suly/14)
          else writeln(rect[3].suly/30*120);
{ ___________________________________________________ }
{ h } writeln;
        e1:=2; e2:=6;                                                           
        for e3:=succ(e1) to pred(e2) do                                         
          if e3 mod 2 =0 then writeln(e3);                                      
        writeln(pred(e2));                                                      
{ ___________________________________________________ }
{ 2 feladat
     ¨rjon olyan programot, amely kiszamitja es kiirja az olyan
     pitagoraszi szamharmasokat, amelyeknek egyik tagja sem
     nagyobb 50-nel. (a pitagoraszi szamharmasok teljesitik az
     a*a+b*b=c*c egyenletet).                               }
{ ___________________________________________________ }
{ 3 feladat
     ¨rjon olyan programot, amely egy kulso char tipusu elemekbol
     allo file-ban kicserel minden kerek zarojelet szogletes
     zarojelre (nyito es csuko zarojeleket egyarant), es az
     igy keletkezett szoveget (sorhelyesen) egy masik kulso
     file-ba irja.                                          }
{ =================================================== }
{ 4 feladat
     ¨rjon olyan programot, amely meghatarozza, hogy hanyfele-
     keppen lehet 500 forintot felvaltani. A megoldasokat
     tablazatos formaban nyomtassa ki. A tablazat fejleceben
     szerepeljen: 100ft 50ft 20ft 10ft 5ft 2ft 1ft
     a belsejeben pedig, hogy az egyes cimletekbol hany
     darab kell.                                            }
{ ___________________________________________________ }
{ 5 feladat
    ¨rjon programot, amelynek egyik bemeno adata a standard
    inputon erkezo pozitiv egesz szam (n>0), masik bemeno
    adata egy kulso, char tipusu elemekbol allo file.
    A program nyomtassa ki a file hatulrol n-edik karak-
    teret. A szamlalaskor az ujsor karaktereket figyelmen
    kivul kell hagyni.                                     }
{ ___________________________________________________ }