program Cantor1;
uses CRT, Graph;
const min = 1;
var gd, gm : Integer;
procedure Draw(x, y : Real; Size : Real);
var s : Real;
begin
if size > min then
begin
s := size / 3;
Draw(x, y + 20, s);
Draw(x + s * 2, y + 20, s);
end;
Bar(Round(x), Round(y), Round(x + size), Round(y + 5));
end;
begin
gd := Detect;
InitGraph(gd,gm,'');
Draw(10,30,500);
ReadKey;
CloseGraph;
end.
cHJvZ3JhbSBDYW50b3IxOwp1c2VzIENSVCwgR3JhcGg7CmNvbnN0IG1pbiA9IDE7CnZhciBnZCwgZ20gOiBJbnRlZ2VyOwoKcHJvY2VkdXJlIERyYXcoeCwgeSA6IFJlYWw7IFNpemUgOiBSZWFsKTsKdmFyIHMgOiBSZWFsOwpiZWdpbgppZiBzaXplID4gbWluIHRoZW4gCmJlZ2luCnMgOj0gc2l6ZSAvIDM7CkRyYXcoeCwgeSArIDIwLCBzKTsKRHJhdyh4ICsgcyAqIDIsIHkgKyAyMCwgcyk7CmVuZDsKQmFyKFJvdW5kKHgpLCBSb3VuZCh5KSwgUm91bmQoeCArIHNpemUpLCBSb3VuZCh5ICsgNSkpOwplbmQ7CmJlZ2luCmdkIDo9IERldGVjdDsKSW5pdEdyYXBoKGdkLGdtLCcnKTsKRHJhdygxMCwzMCw1MDApOwpSZWFkS2V5OwpDbG9zZUdyYXBoOwplbmQu