begin {the start of the program}
clrscr;
write('Enter a number to convert to disk hex: ');
readln(number);
{do the main calculations}
n4:=number div 16777216;
n4a:=number mod 16777216;
n3:=n4a div 65536;
n3a:=n4a mod 65536;
n2:=n3a div 256;
n2a:=n3a mod 256;
n1:=n2a;
{display results, have them converted to hex, and
display in hex}
writeln('Original Number entered ',number);
writeln('base 10 [normal] ',n1:4,n2:4,n3:4,n4:4);
write('base 16 [hex] ');
num:=n1; {set what needs to be shown as hex}
hexit; {convert num to hex and show it}
write('-'); {display a seperator character}
num:=n2; {set what needs to be shown as hex}
hexit; {convert num to hex and show it}
write('-'); {display a seperator character}
num:=n3; {set what needs to be shown as hex}
hexit; {convert num to hex and show it}
write('-'); {display a seperator character}
num:=n4; {set what needs to be shown as hex}
hexit; {convert num to hex and show it}
writeln; writeln('Hit enter to exit');
readln;
end.
-- End of source code -- >>>>