$e
=============================== 1984.jan.9 ==========
1)
a. e1:=3; e2:=9*e1 div 2;
   for e3:=succ(e2) downto pred(e1) do
    begin
         b1:=e3 mod 5=1;
         if b1 and (e3>7) then writeln(e3);
    end;
   --------------------------------------------------
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. writeln; write(' ');
   for e1:=ord('0') to ord('9') do
       write(chr(e1));
   --------------------------------------------------
d. e1:=1
   repeat
         e2:=1;
         repeat
              t2(.e1,e2.):=e1+e2>2;
              e2:=succ(e2);
         until e2>2;
         e1:=succ(e1);
   until e1>2;
   for e1:=1 to 2 do
    begin
         writeln; write(' ');
         for e2:=1 to 2 do
             write(t2(.e1,e2.));
    end;
   --------------------------------------------------
e. for e1:=1 to 3 do
     with  rect(.e1.) do
       begin
            suly:=e1 div 2 +1;
            if e1<2 then nev:='ab'
            else
                if e1 mod 3=0 then nev:='ac'
                else nev:='aa';
       end;
   for e1:=1 to 2 do
       if rect(.e1.).nev<rect(.e1+1.).nev then
              writeln(' ',rect(.e1.).nev)
       else
              writeln(rect(.e1.).suly);
   --------------------------------------------------
$e
f. m1:=nil;
   for e1:=1 to 3 do
    begin
         new(m2);
         with m2@ do
           begin
                kulcs:=e1;
                lanc:=m1;
           end;
          m1:=m2;
    end;
    m2:=m2@.lanc; new(m3); m3@.kulcs:=9;
    m3@.lanc:=m2@.lanc;
    m2@.lanc:=m3;
    m2:=m1;
    while m2<> nil do
     begin
          writeln(m2@.kulcs);
          m2:=m2@.lanc;
     end;
   --------------------------------------------------
g. new(m1);   m1@.kulcs:=5;   new(m2);   m2@.kulcs:=7;
   m1@.lanc:=m2;   m2@.lanc:=m1;   e1:=0;
   while e1<13 do
      begin
           e1:=e1+m1@.kulcs;
           m1:=m1@.lanc;
      end;
   writeln(e1);
   --------------------------------------------------
h. h1:=(..);  h2:=(..);
   for e1:=1 to 30 do
    begin
         if e1 mod 2 =0 then h1:=h1+(.e1.);
         if e1 mod 4 =0 then h2:=h2+(.e1.);
    end;
  h1:=h1-h2;
  for e1:=1 to 30 do
    if e1 in h1 then writeln(e1);
   --------------------------------------------------
i. e1:=9; e2:=4;
   while not f(e1,e2) do
    begin  e1:=pred(e1); writeln(e1);
    end;
   --------------------------------------------------
j. e1:=4; e2:=2;
   while e1>0 do
       s(e1,e2);
   --------------------------------------------------
                                   ,
k. a bemeneti adatok:       (a _ szokozt jelent)

      e      e  e   e
      o      o  o   of
      l      l  l   lo
   ___n27e-1_n3_nab1ne
$e
   readln(v1); writeln(v1);
   read(e1,ch1,ch2);   readln;   writeln(e1,ch1,ch2);
   write(' ');
   while not eof do
    begin
         read(ch1); write(ch1);
    end;
   --------------------------------------------------
l. for e1:=10 downto 1 do
      t1(.e1.):=-6+e1;
   h1:=(..);
   for e1:=1 to 10 do
     if t1(.e1.)<0 then h1:=h1+(.t1(.e1.).);
   for e1:=1 to 10 do
     if not (t(.e1.) in h1) then writeln(t1(.e1.));
   ___________________________________________________
      ,
megoldasok:
a. 11

b. 14

c. 0123456789

d. false  true
   true   true

e.  1
   aa

f.  3
    2
    9
    1

g. 17

h.  2
    6
   10
   14
   18
   22
   26
   30

i.  8
    7
    6
    5

j.  5   2   -3
    3   1   -1
    2   0    0

k.  2.7e+00
    3__
    ..            ,
l. foldobja a talpat mert t1(.6.)=-1;
   ezt nem lehet a h1 halmazba tenni]
===========================================================
$e
    ,                                  ,, ..
 2. irjunk programot, amely egy 10 elemu tombbe beolvas
         ,     ,    ,    ,                              ,
    10 egesz szamot es kiirja , hogy a legnagyobb abszolut
    ,  , ,,  ,       ,        ,
    erteku szam pozitiv, negativ vagy 0-e.
______________________________________________________
   ,        , ,                  ,  ,  ,        ,
3. irjon eljarast, mely adott valos erteket normal alakban
                         ,              ,,
   (ezt nevezik exponencialis vagy lebegopontos alaknak is)
     ,               ,    ,                  ,,    ,     ,
   kiir, de azzal a valtozassal, hogy a kitevot elvalaszto
        ,,             ,,
   e betu helyett d betut nyomtat.
             ,  ,                                    ,
   pl: ha az ertek 123.45, akkor 0.12345000d+03  -at ir.
---------------------------------------------------------
          ,                             ,  ..      ,
4. adott ket, integer elemeket tartakmazo tomb: t1 es t2.
           ,,        ,   ,,,          ,,    ..   ,,
   mindketto  1..10 meretu es mindkettoben novekvo
                    ,
   sorrendbe vannak allitva az elemek.
     ,              , ,            ,
     irjon olyan eljarast, mely t1 es t2 elemeit egy
               ,   ,, ..     ..        ..   ,,
     t3 1..20 meretu tombbe tolti be csokkeno sorrendben,
     ..    , ..
     osszefesulve.
______________________________________________________
   ,        , ,              ,
5. irjon eljarast, mely egyiranyban pointerekkel
   ..    ,         ,     ,               ,     ,  ,     ,
   osszelancolt, egesz szamokat tartalmazo listat atalakit
        ,           ..   ,,
   nagysag szerint novekvo sorrendbe.

figyelem]
~~~~~~~~~
            , ,           ,         ,     ,    ,
 - egyik eljaras sem hasznalhat globalis valtozokat]
   ,                 ,    ,        , ,
 - irja le az egyes valtozok jelenteset]
    ,  ,         ,             ,  ,
 - keszitsen szabalyos folyamatabrat]