=============== v-830103.txt,  alias V-06.txt ===============
___________________________________________________ *)
a)   writeln;
         e3:=0;
         for e1:=1 to 3 do
         for e2:=4 downto 2 do
         e3:=e3+e1+e2;
         writeln(e3);
___________________________________________________
b)   writeln;
         ch1:='5'; ch2:='8'; e1:=0;
         while ch1<=ch2 do
         begin
           e1:=e1+ord(ch1)-ord('0');
           ch1:=succ(ch1)
         end;
         writeln(e1);
___________________________________________________
c)   writeln;
         for e1:=1 to 2 do
         begin
           e2:=1;                                                               
           repeat                                                               
             t2(.e1,e2.):=(e1<e2) or (e2 div 2=1);                              
             write(t2(.e1,e2.):6);                                              
             if e2 mod 2=0 then writeln;                                        
             e2:=succ(e2);                                                      
           until e2>2;                                                          
         end;                                                                   
___________________________________________________
d)   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);
___________________________________________________
e)   writeln;
         m1:=nil;                                                               
         for e1:=1 to 3 do                                                      
           begin                                                                
           new(m2);
           with m2@ do
             begin                                                              
             kulcs:=2*e1;                                                       
             lanc :=m1;                                                         
             end;                                                               
           m1:=m2;                                                              
           end;                                                                 
         while m2<>nil do                                                       
           begin                                                                
           writeln(m2@.kulcs);                                                  
           m2:=m2@.lanc;                                                        
           end;                                                                 
__________________________________________________
f)    writeln;
          e1:=0; h1:=(.2,3..5,11.); h2:=(..);
          repeat                                                                
            e1:=e1+1;                                                           
            if e1>10 then h2:=h2+(.2*e1.);                                      
          until e1=13;
          h1:=h1+h2;
          for e1:=1 to 30 do
            if e1 in h1 then writeln(e1);
___________________________________________________
g)   writeln;
         e1:=7; e2:=3;
         s(e1,e2);
         writeln(e1,e2);
___________________________________________________
h)   writeln;
         e1:=10; e2:=4;
         b1:=(e1>e2) or f(e1,e2);
         if b1 then writeln(' egy') else writeln(' ketto');
___________________________________________________
2. feladat
   Egy 10 sorbol es 10 oszlopbol allo tombbe, amely char
   tipusu elemeket tartalmaz, be kell olvasni 100
   karaktert, majd el kell donteni, hogy van-e ket
   egyforma sora a tombnek.

3. feladat
   Ťrjon programot, amely beolvassa a bemeneti
   adatallomany osszes karakteret, es kiirja, hogy a
   '0', '1', '2', ... '9' karakterek hanyszor
   fordultak elo.
===================================================
4. feladat
   Ťrjon elj r st, amely adott val˘s ‚rt‚ket kitev“s
   alakban ˇr ki, de azzal a v ltoztat ssal, hogy
   a kitev“t elv laszt˘ szok sos "e" bet– helyett "d"
   bet–t ˇr.
   Pl: ha az ‚rt‚k 123.45 akkor 0.12345000d+03 -at ˇr.
   A kitev“ 2 karakteres, a teljes mez“sz‚less‚g is param‚ter.

5. feladat
   Ťrjon fuggvenyt, melynek tipusa boolean, parameterkent
   egy 5 elemu, integer elemeket tartalmazo tombot kap.
   erteke legyen true, ha ez a tomb szigoruan monoton
   novekvo vagy csokkeno szamsort tartalmaz, egyebkent
   legyen false.

6. feladat
   Nevezzunk egy termeszetes szamot egyszerunek, ha
   vagy primszam, vagy egy primszam negyzete.
   Ťrjon programot, amely kinyomtatja a legfeljebb
   haromjegyu egyszeru szamokat, ugy hogy egy sorba
   20 szam kerul.