$e
======================================= 1984.2.10 =======
1)
a. e1:=0;   h1:=(.2..5,7.);
   while not eof do
     begin
          read(e2);
          if e2 in h1 then
             begin
                  e1:=succ(e1);
                  h1:=h1-(.e2.);
                  readln;
             end;
     end;
    writeln(e1);
                             , ..
a bemeneti adatok:   ( a _ szokozt jelent)
      e      e
      o      oe
      l      lo
9__2_3n2__3_7nf
   -------------------------------------------------
b. h1:=(.1..6,9,12..15.);   h2(.10..13,20.);
   h1:=h1*h2;
   for e1:=1 to 30 do
       if e1 in h1 then writeln(e1);
   -------------------------------------------------
c. l1:=tarsberlet;   v1:=3.2;   e1:=6;
   t2(.1,1.):=ord(l1)=1;
   t2(.1,2.):=round(v1)<>trunc(v1);
   t2(.2,1.):=not t2(.1,2.) and (t2(.1,1.);
   t2(.2,2.):=not odd(e1) or t2(.1,1.);
   for e1:=1 to 2 do
   for e2:=1 to 2 do
           writeln(t2(.e1,e2.):7);
   -------------------------------------------------
d. e1:=6;   e2:=5;
   s(e1,e2);
   if not f(e1,e2) then writeln(e1) else writeln(e2);
   -------------------------------------------------
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);
   -------------------------------------------------
$e
f. with rect(.1.) do
       begin
            nev:='cc';
            suly:=5;
       end;
   with rect(.2.) do
       begin
            nev:='cd';
            suly:=7;
       end;
   if rect(.1.).nev>rect(.2.).nev
   then writeln(rect(.1.).suly)
   else writeln(rect(.2.).suly);
----------------------------------------------------
              ,
        megoldas:

a.   2

b.   12
     13

c.   true
     false
     true
     true

d.   7  1  -2
     5

e.   3

f.   7
----------------------------------------------------
$e
   ,        , ,                 ,         ,
2. irjon eljarast, amelynek formalis parametere egy 10
       ,,       ,   ,                   ,  ..         , ,
   elemu, char tipusu elemeket tartalmazo tomb. az eljaras
            ,     .. .. ,             ,               ,
   rendezze at a tombot ugy, hogy a szamjegyek az elejere
      ..          ,
   keruljenek, tehat pl.:

   a b 1 c 3 5 d 7 9 f  --> 1 3 5 7 9 a b c d f
       ,                             ,  ,
   a szamjegyeket nem kell sorrendbe allitani, az a
    ,              ..            ,,    ......
   lenyeg, hogy a tobbi karaktertol elkulonuljenek]
----------------------------------------------------
   ,                                         ,,
3. irjon programot, amely beolvas egy 10 elemu, integer
    ,   ,                   ,  ..         ,    ,    ,
   tipusu elemeket tartalmazo tombbe 10 szamot es kiirja,
                             ,,    ..   ,,    ..
   hogy melyik elem fordul elo legtobbszor a tombben.
             .... ..,,                    , ,
   ha csupa kulonbozo elem van, akkor a kiiras legyen:

   "csupa kulonbozo" .

    pl:
   3 4 3 7 10 3 8 6 8 9  --> 3
   1 2 3 4 5 6 7 8 9 10  --> csupa kulonbozo
==========================================================
    ,  ,        , ,            ..    ,
4. keszitsen eljarast, mely egyutthatoival adott polinom
        ,   ,       ..    ,      ,
   derivaltjanak egyutthatoit hatarozza meg.
----------------------------------------------------
          ,     ,                     ,            ,, ..
5. adott ket, egesz elemeket tartalmazo, 10-10 elemu tomb.
    ,  ,    ,,       , ,                      ..   ,,
   keszitendo egy eljaras, mely ezek elemeit novekvo
              ,        ,                            ,,
   sorrendbe valogatva atrakja egy harmadik, 20 elemu
    ..
   tombbe.