pascal

program dectohex;
uses crt;
var sestnast,desat:integer;
    vysledok,pomocna:string;
begin
  write('Zadaj cislo v 10 sustave: ');
  readln(desat);
  vysledok:='';
  while desat>0 do begin
   sestnast:=desat mod 16;
   case sestnast of
    10: vysledok:='A'+vysledok;
    11: vysledok:='B'+vysledok;
    12: vysledok:='C'+vysledok;
    13: vysledok:='D'+vysledok;
    14: vysledok:='E'+vysledok;
    15: vysledok:='F'+vysledok;
    0..9: begin
          str(sestnast,pomocna);
          vysledok:=pomocna+vysledok;
          end;
    end;
   desat:=desat div 16;
   end;
writeln(vysledok);
repat until keypressed;
end.

program Prevody;

uses CRT;
var sestnast,desat,I,kod,hex:integer;
    vysledok,pomocna:string;
    vyber:char;
    label menu;
begin
menu:
clrscr;
writeln('1: prevod z desiatkovej sustavy do sestnastkovej sustavy');
writeln('2: prevod zo sestnastkovej do desiatkovej sustavy');
writeln('3: koniec');
writeln;
readln(vyber);
case vyber of
'1': begin
     write('Zadaj cislo v 10 sustave: ');
     readln(desat);
     vysledok:='';
     while desat>0 do begin
      sestnast:=desat mod 16;
      case sestnast of
      10: vysledok:='A'+vysledok;
      11: vysledok:='B'+vysledok;
      12: vysledok:='C'+vysledok;
      13: vysledok:='D'+vysledok;
      14: vysledok:='E'+vysledok;
      15: vysledok:='F'+vysledok;
      0..9: begin
          str(sestnast,pomocna);
          vysledok:=pomocna+vysledok;
          end;
       end;
      desat:=desat div 16;
      end;
     writeln('Zadane cislo je v sestnastkovej sustave: ',vysledok);
     writeln;
     write ('Pokracovat? [Y/N]: ');
     readln(vyber);
     if uppercase(vyber)='Y' then goto menu;
     end;
'2': begin
     write('Zadaj cislo v 16 sustave: ');
     readln(pomocna);
     hex:=0;
     sestnast:=1;
     For I:=length(pomocna) downto 1 do begin
      case pomocna[I] of
      'A': desat:=10;
      'B': desat:=11;
      'C': desat:=12;
      'D': desat:=13;
      'E': desat:=14;
      'F': desat:=15;
      '0'..'9': val(pomocna[I],desat,kod);
      end;
      hex:=hex+sestnast*desat;
      sestnast:=sestnast*16;
      end;
     writeln('Zadane cislo je v desiatkovej sustave: ',hex);
     writeln;
     write ('Pokracovat? [Y/N]: ');
     readln(vyber);
     if uppercase(vyber)='Y' then goto menu else exit;
     end;
'3': exit;
end;
end.

if ((vyber)='Y' or (vyber)='y') then goto menu else exit;

if ((vyber='Y') or (vyber='y')) then goto menu else exit;