program do_sestnast; var j,i,d:integer; z:array[1..16] of integer; procedure urob_prevod_16(d:integer); var i,j,c: integer; begin i:=16; c:=d; repeat z[i]:=c mod 16; c:=c div 16; i:=i-1; until C=0; end; begin write('Zadaj cislo v desiatkovej sustave :'); readln(d); urob_prevod_16(d); write('Zapis cisla ',D,' v sestnastkovej sustave je: '); for J:=I+1 to 16 do begin if(z[j]=15) then write('F'); if(z[j]=14) then write('E'); if(z[j]=13) then write('D'); if(z[j]=12) then write('C'); if(z[j]=11) then write('B'); if(z[j]=10) then write('A'); if(z[j]<10) then write(z[j]); end; writeln; readln; end.