type
        skaitmuo = ^sarasas;
        sarasas = record
            skaitmuo : integer;
            pirmyn, atgal : skaitmuo;
        end;
        skaicius = record
            neig : boolean;
            rod : skaitmuo;
        end;