program Chislo;
type chislo=record
			  p1:integer;
			  p2:string;
			  p3:string;
end;
var p:chislo; k:integer;
 function FromDec(n, radix:longint):string;
 var s:string;
 const digit:string[16]='0123456789ABCDEF';
 begin
  s:=' ';
  repeat
   s:=digit[(n mod radix)+1]+s;
   n:=n div radix;
  until n=0;
  FromDec:=s;
 end;
begin
write('Введите число');
readln(k);
p.p1:=k;
writeln('Поле p1=',p.p1);
p.p2:=FromDec(k,2);
writeln('Поле p2=',p.p2);
p.p3:=FromDec(k,16);
writeln('Поле p3=',p.p3);
end.