============== v-820102.txt,  alias  v-01.txt ============
___________________________________________________
a)  writeln;
       e1:=3;  e3:=0;
       for e2:=pred(e1) to succ(succ(e1+1)) do
         if e2 in [e1..e1+2] then e3:=e3+e2;
       writeln(e3);
___________________________________________________
b)  writeln;
       e1:=0;  l1:=foberlet;
       while e1<= ord(l1) do e1:=2*(e1+1);
       writeln(ord(pred(l1)),e1);
___________________________________________________
c)  writeln;
       t1[1]:=6;  t1[2]:=4;  t1[3]:=7;  t1[4]:=4;
       for e1:=1 to 2 do
         begin
         for e2:=1 to 2 do
           t2[e1,e2]:=t1[e1+e2-1] <= t1[1+(e1+e2+3) mod 4];
         writeln(t2[e1,1]:8, t2[e1,2]:8);
         end;
___________________________________________________
d)  writeln;
       e1:=5; e2:=6; s(e1,e2);
       if f(e1,e2) then s(e1,2*e1+3) else s(e2,e2+e1);
___________________________________________________
e)
       for e1:=3 downto 1 do
        with rect[e1] do
         begin
         nev[1]:=chr(e1+ord('0'));
         nev[2]:=succ(nev[1]);
         suly:=sqr(e1)-round(sqrt(e1+1));
        end;
       for e1:=1 to 3 do
        if not odd(rect[e1].suly)
        then write(e1,rect[e1].nev);
        writeln;
___________________________________________________
f)  writeln;
       e1:=2;  h1:=[1..10];
       repeat
         if e1 in h1 then h1:=h1-[2*e1]
                     else h1:=h1+[e1];
         e1:=e1*2+3;
       until e1>20;
       for e1:=1 to 30 do
         if e1 in h1 then write(e1);
       writeln;
___________________________________________________
g)  writeln;
       new(m1);  m1@.kulcs:=6;
       new(m2);  m2@.kulcs:=7;  m1@.lanc:=m2;
       m3:=m2;
       for e3:=3 to 6 do
        begin
        new(m3@.lanc);  m3:=m3@.lanc;
        m3@.kulcs:=e3;
        end;
       m3@.lanc:=m2;  m3:=m1;
       for e1:=1 to 7 do
        begin
        write(m3@.kulcs);
        m3:=m3@.lanc;
       end;
       writeln;
___________________________________________________
h)  writeln;
       e1:=10;  e2:=2;
       repeat  s(e1,e2);
               writeln(e1,e2);
       until e1<3;
___________________________________________________
2. feladat
  A bemeneti adatallomany pontosan 80 karakterbol all.
  Ki kell irni, hogy hanyszor fordult elo benne az
  'xy' karaktersorozat.
___________________________________________________
3. feladat
  Adott egy  tt=array [1..n] of char   tipusu tomb.
  ¨rando egy eljaras (egyetlen parametere tt tipusu),
  amely a tomb elejere gyujti a betuket, egymas kozott
  tetszoleges sorrendben. 'a' es 'z' kozott mindent
  betunek tekintunk.
  pl:  ax3:<de9.   -bol  axed<9:.3   keletkezhet.
===================================================
4. feladat
  Keszitendo egy teljes program, amely a
     szemely=record
               ...
               evfolyam :1..5;
               ...
             end;
  tipusu elemekbol allo file-ban mindenkinel megnoveli
  az evfolyam-szamot, a vegzosoket pedig torli a file-
  bol. Az eredmeny az eredeti file-ban keletkezzen.
___________________________________________________
5. feladat
  ¨rjon egy eljarast, amely egy k elemu integer
  tombben ( k konstans ) megkeresi az n-edik leg-
  nagyobb erteku elemet vagy elemeket ( n parameter ).
  Az eredmeny egy k elemu boolean tipusu tombben
  keletkezzen, ugy hogy a keresett elemeknek megfelelo
  helyeken true, masutt false ertek legyen.
  Az eljaras ne hasznaljon globalis valtozot, az adat-
  csere a parametereken keresztul tortenjen.

  Pl:      a tomb  4,6,6,8,5,8,9,7,2,1,6    n=4 eseten
      az eredmeny  f,t,t,f,f,f,f,f,f,f,t