informatyki i systemów mikroprocesorowych

program zamiana_liczby_na_postac_szestnastkowa;

uses crt;                             

var liczba:word;                   
    i,z:integer;
    n:char;
    tab:array[0..3] of word;           

procedure kodowanie;
begin
     if z=0 then n:='0' else
     if z=1 then n:='1' else
     if z=2 then n:='2' else
     if z=3 then n:='3' else
     if z=4 then n:='4' else
     if z=5 then n:='5' else
     if z=6 then n:='6' else
     if z=7 then n:='7' else
     if z=8 then n:='8' else
     if z=9 then n:='9' else
     if z=10 then n:='A' else
     if z=11 then n:='B' else
     if z=12 then n:='C' else
     if z=13 then n:='D' else
     if z=14 then n:='E' else
     n:='F';
end;

begin
     tab[0]:=1;                         
     tab[1]:=16;
     tab[2]:=256;
     tab[3]:=4096;

     clrscr;
     writeln('Program zamienia liczbe całkowita - word na jej postac szesnastkowa');
     writeln('Podaj liczbe');
     readln(liczba);
     write(liczba w zapisie szestnastkowym = );

     for i:=3 downto 0 do
     begin
          z:=liczba div a[i];
          kodowanie;
          write(n);
          liczba:=liczba mod a[i];
     end;
     writeln;
     repeat until keypressed;
end.