$e
=========================================== 1985.12.23 ====
1/a)  e1:=2;  e2:=6;
      for e3:=succ(e1) to pred(e2) do
        if e3 mod 2=0 then writeln (e3);
      writeln(pred(e2));
      -----------------------------------------------------
  b)  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)  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);
      -----------------------------------------------------
  d)  e1:=5;  e2:=6;  s(e1,e2);
      if f(e1,e2) then writeln(e1) else writeln(e3);
      -----------------------------------------------------
  e)  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);
      -----------------------------------------------------
  f)  with rectomb(.1.) do begin nev:='pq';  suly:=6; end;
      with rectomb(.3.) do begin nev:='mn';  suly:=1; end;
      with rectomb(.2.) do begin nev:='zz';  suly:=3; end;
      for e1:=1 to 2 do
        for e2:=e1 to 2 do
          if rectomb(.e2.).suly>rectomb(.e2+1.).suly
          then begin  e3:=rectomb(.e2.).suly;
                      rectomb(.e2.).suly:=rectomb(.e2+1.).suly;
                      rectomb(.e2+1.).suly:=e3;
               end;
      for e1:=1 to 3 do writeln(rectomb(.e1.).nev);
-----------------------------------------------------------
$e
          ,
    megoldas:
    =========
a.  4
    5

b.  14

c.  false true false true

d.  0

e.  3

f.  pq
    zz
    mn
----------------------------------------------------------
     ,  ,    ,,                ,    ,  , ,,
2)  keszitendo egy vizsgabeosztast keszito program:
              ,,           ,         ,               ,
    a vizsgaidoszak 25 napjat kell szetosztani 6 tantargy
     ....  ,                 ,         ,     ,,     ,
    kozott ugy, hogy minden targy vizsgaja elott a targy
       ,  , ,      ,       , ,
    nehezsegevel aranyos szamu nap maradjon.
       ,           ,     ,  ,    ,    ,,
    a targyak relativ nehezsegi tenyezoi bemeneti adatok,
      ,    ,        ,           ,       ,
    kiirando, hogy hanyadik tantargyra hany napot kell tanulni.
-----------------------------------------------------------
            ,       , , ,          ,         ,
3)  az 1985 evi lottohuzasok hetenkenti eredmenyei egy
                                        ,   ,  ..
    t=array(.1..53,1..5.) of integer   tipusu tombben vannak.
    ,        , ,              ,       ,            , ,
    irjon eljarast, mely a kihuzott szamok gyakorisagat
      ,,   ..           ,, ..
    gyujti ossze 90 elemu tombbe.
          , ,           ,         ,     ,    ,
    az eljaras nem hasznalhat globalis valtozot.
=============================================================
$e
     ,  ,    ,,
4)  keszitendo egy teljes program, amely

    szemely=record
                ...                ,
              evf:0..5;         (* evfolyam *)
                ...
            end;
      ,   ,        ,, ,  ,                   ,      ..
     tipusu elemekbol allo file-ban mindenkinel megnoveli
        ,          ,        ,  ,,..          ..           ,
     az evfolyam-szamot, a vegzosoket pedig torli a file-bol.
             ,                                ,
     az eredmeny az eredeti file-ban keletkezzek.
=============================================================
          ,                ,,   ,   ..  ,
5)  deklaraljon egy atn nevu valos fuggvenyt, mely minden
          ,        ,         ,  ,  ,
    lehetseges  x  es  y  valos ertekre megadja az (x,y)
                   ,    ,
    pontbol az origoba huzott egyenesnek az x tengely
         ,    , ,       ,     ..,
    pozitiv szaraval bezart szoget.
             ,         ,     ,    ,
    nem hasznalhat globalis valtozot.
----------------------------------------------------------
    ,        , ,                ,           ,    ,   ,
6)  irjon eljarast, mely a szabvanyos input allomanybol
              ,   ,          ,    ,,
    beolvassa es lancolt listaba fuzi a szavakat (azaz a
      , .... ,        ,
    szokozok altal hatarolt, legfeljebb 20 karakteres
                 ,           ,
    sorozatokat) es egy mutatot ad vissza, mely az
         ,                ,           ,  ,
    utoljara beolvasott szot tartalmazo lancelemre mutat.
          , ,           ,         ,     ,    ,
    az eljaras nem hasznalhat globalis valtozot.