======================================= 1984.jan.2 ========
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 e1:=1 to 3 do
      for e2:=4 downto 2 do
      e3:=e3+e1+e2;
      writeln(e3);
      ________________________________________________
  c.  ch1:='5'; ch2:='8'; e1:=0;
      while ch1<=ch2 do
      begin
           e1:=e1+ord(ch1)-ord('0');
           ch1:=succ(ch1)
      end;
      writeln(e1);
      ________________________________________________
  d.  for e1:=1 to 2 do
      begin
         e2:=1;
         repeat
           t2(.e1,e2.):=(e1<e2) or (e2 div 2=1);
           write(t2(.e1,e2.));
           if e2 mod 2=0 then writeln;
           e2:=succ(e2);
         until e2>2;
      end;
      ________________________________________________
  e.  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);
     _________________________________________________
  f.  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;
      _______________________________________________
  g.  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);
      ________________________________________________
  h.  l1:=foberlet;
      for l2:=alberlet to kastely do
         if l2<=l1 then writeln(ord(l2));
      ________________________________________________
  i.  readln(ch1,v1,v2); writeln(' ',ch1,v1,v2);
      readln(ch1,ch2,ch3); writeln(' ',ch1,ch2,ch3);
      read(e1);
             ,,
      a bemeno adatok:
      !      e    e  e    e  e
      !      o    o  o    o  oe
      !      l    l  l    l  lo
      !123e-2n7_abn_gn85_1n72nf

               , ..     ..
    (a _ jel szokozt jelol)
      ________________________________________________
             ,,                              ,  ,
  j.  a bemeno adatok ugyanazok, mint az i. peldaban,
              ,            ,      ,,
      az olvasas a sor elejen kezdodik.

           e1:=0;
           while not eof do
           begin
                read(ch1);e1:=e1+1;
                if eoln then readln;
           end;
           writeln(e1);
      ________________________________________________
  k.  e1:=7; e2:=3;
      s(e1,e2);
      writeln(e1,e2);
      ________________________________________________
  l.  e1:=10; e2:=4;
      b1:=(e1>e2) or f(e1,e2);
      if b1 then writeln(' egy') else writeln(' ketto');
______________________________________________________
$e
      ,
megoldas:
a.   4
     5

b.   45

c.   26

d.   false  true
     false  true

e.   4.0000e1

f.   6
     4
     2

g.   2
     3
     4
     5
    11
    22
    24
    26

h.   0
     1
     2

i.   1    2.3e-1  7.0e0
      g
     72

j.  18

k.   8 2 -5
     2 3

l.   egy
==========================================================
$e
                  ,    ,               ,, ,
2. a bemeneti adatallomany 80 karakterbol all. ezeket be
                 ,          ,           ,                ,,
   kell olvasni, es ki kell irni, hogy hanyszor fordul elo
                    ,
   az 'ab' karakterlanc.
---------------------------------------------------------
              ,  ,            ,  ,  ,  ..
3. 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.
---------------------------------------------------------
                 ,    ,       , ,,..
4. a. a bemeneti allomanyban levo osszes karaktert be
                ,           ,  ,  ,  ,     ,          ,
   kell olvasni es egy egyiranyu linearis lancolt listaban
    ,
   tarolni kell.
            ,,                        ..            ,
     a bemeno adatok nem tartalmaznak ures sort, tehat

                 ,,                e e      e
    nem fordul elo ilyen adat:a  b o o vagy o a b
                                   l l      l
                                   n n      n
              ,          ,     , ,,
   b. ki kell irni a listaban levo karaktereket a lista
         , ,,                                   ,
      fejetol kezdve. (egy sorban 132 karakter fer el.)
              ,          ,     , ,,
   c. ki kell irni a listaban levo karaktereket a lista
       ,     , , ,,
      masik vegetol kezdve.