Pascal - podprogram

program prevody;

uses crt;

var vic,dec,sustava1,zbytok,sustava,y,i:longint;
    x:integer;
    vysledok,cislo:string;
    znak:char;

begin
     clrscr;
     writeln('Napiste cislo: ');
     readln(cislo);
     writeln('Zadaj sustavu, v ktorej je toto cislo');
     readln(sustava1);
     writeln('Zadajte sustavu, do ktorej chcete cislo prevadzat'); {od 2 do 200}
     readln(sustava);
     if sustava<2 then sustava:=2;
     y:=1;
     x:=0;
     for i:=1 to length(cislo) do
         begin
              znak:=cislo(.length(cislo)-x.);
              if ord(znak)<58 then vic:=48
              else vic:=55;
              dec:=dec+(ord(znak)-vic)*y;
              y:=sustava1*y;
              x:=x+1;
         end;
     while dec>0 do
         begin
              zbytok:=dec mod sustava;
              dec:=dec div sustava;
              if zbytok<10 then vysledok:=chr(48+zbytok)+vysledok
              else vysledok:=chr(55+zbytok)+vysledok;
         end;
     writeln('Vami zadane cislo vyzera v ',sustava,'-kovej sustave takto: ');
     writeln(vysledok);
end.

uses crt;

var vic,dec,sustava1,zbytok,sustava,y,i:longint;
    x:integer;
    vysledok,cislo,u:string;
    znak,klaves:char;

FUNCTION prevod(sustava1,sustava:longint; cislo:string):string;
         var x:integer;
             i,y:longint;
             vic,dec,zbytok:longint;
             vysledok:string;
             znak:char;

         begin
           if sustava<2 then sustava:=2;
           y:=1;
           x:=0;
           for i:=1 to length(cislo) do
               begin
                    znak:=cislo(.length(cislo)-x.);
                    if ord(znak)<58 then vic:=48
                    else vic:=55;
                    dec:=dec+(ord(znak)-vic)*y;
                    y:=sustava1*y;
                    x:=x+1;
               end;
           while dec>0 do
               begin
                    zbytok:=dec mod sustava;
                    dec:=dec div sustava;
                    if zbytok<10 then vysledok:=chr(48+zbytok)+vysledok
                    else vysledok:=chr(55+zbytok)+vysledok;
               end;
               prevod:=vysledok;
           end;

BEGIN
     clrscr;
     write('Napiste cislo: ');
     readln(cislo);
     write('Zadaj sustavu, v ktorej je toto cislo: ');
     readln(sustava1);
     write('Zadajte sustavu, do ktorej chcete cislo prevadzat: '); {od 2 do 200}
     readln(sustava);
     u:=prevod(sustava,sustava1,cislo);
     writeln('Vami zadane cislo vyzera v ',sustava,'-kovej sustave takto: ',u);
     readln;
END.

uses crt;

var vic,dec,sustava1,zbytok,sustava,y,i:longint;
    x:integer;
    vysledok,cislo,u:string;
    znak,klaves:char;

FUNCTION prevod(sustava1,sustava:longint; cislo:string):string;
         var x:integer;
             i,y:longint;
             vic,dec,zbytok:longint;
             vysledok:string;
             znak:char;

         begin
           if sustava<2 then sustava:=2;
dec:=0; //////////////////////////////////////////////////////////////////////////////
           y:=1;
           x:=0;
           for i:=1 to length(cislo) do
               begin
                    znak:=cislo(.length(cislo)-x.);
                    if ord(znak)<58 then vic:=48
                    else vic:=55;
                    dec:=dec+(ord(znak)-vic)*y;
                    y:=sustava1*y;
                    x:=x+1;
               end;
vysledok:=''; ///////////////////////////////////////////////////////////////////////////////////////////
           while dec>0 do
               begin
                    zbytok:=dec mod sustava;
                    dec:=dec div sustava;
                    if zbytok<10 then vysledok:=chr(48+zbytok)+vysledok
                    else vysledok:=chr(55+zbytok)+vysledok;
               end;
               prevod:=vysledok;
           end;



BEGIN
     clrscr;
     write('Napiste cislo: ');
     readln(cislo);
     write('Zadaj sustavu, v ktorej je toto cislo: ');
     readln(sustava);
     write('Zadajte sustavu, do ktorej chcete cislo prevadzat: '); {od 2 do 200}
     readln(sustava1);
     u:=prevod(sustava,sustava1,cislo);
     writeln('Vami zadane cislo vyzera v ',sustava1,'-kovej sustave takto: ',u);
     readln;
END.