var integer procedure QW integer begin if then begin QW div write mod

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
var
n :integer;
procedure QW(x :integer);
begin
if !(x = 0) then begin
QW(x div 2);
write(x mod 2);
end;
end;
begin
read(n);
QW(n);
end.