function konwersja (x,system:integer):string;
var bin, bit:string;
begin
bin:='';
while x<>0 do
begin
str(x mod system,bit);
bin:=bit+bin;
x:=x div system;
end;

konwersja:=bin;

end;



BEGIN
write(konwersja(255,2));
END.