=============== v-820101.txt,  alias V-00.txt =========
{1.a}
     l1:=foberlet;
     l2:=kastely;
     e1:=ord(l2);
     s(e1,ord(l1));
     writeln(e1:3,ord(l2):3);
{1.b}
     e1:=1;  e2:=2;
     new(m1);  m1^.kulcs:=2;  m3:=m1;  m3^.lanc:=m1;
     new(m1);  m2:=m1;
     new(m1);  m1^.lanc:=m2;  m2^.lanc:=m1;
     m1^.kulcs:=e1;
     if m1^.lanc=m3  then  m1^.kulcs:=e2
                     else  m1^.kulcs:=e1;
     if m1^.lanc^.lanc=m1  then  writeln('alma');
     if m3^.kulcs=e1       then  writeln('korte');
     if m2^.lanc^.kulcs=e1 then writeln('narancs');
{1.c}
     for e1:=1 to 7 do
       for e2:=e1 downto 0 do
         if not f(e2,e2) then write(e1:3);
     writeln;
{1.d}
    read (ch1,ch1,ch2,ch3,ch3);
    v2:=ord(ch1)-ord('0');
    v1:=ord(ch3)-11*ord('0')+10*ord(ch2)+v2/10;
    read(v2);
    if eoln then readln;
    read(v2,ch1,ch2);
    readln(e1);
    writeln(v1:6:2,e1:2,round(v2):3);
{ A bemeno adatok:
         ee   e
         oo   o
         ll   l
 14.5 7 4nn  1n
}
end.