program SSS;
uses crt,graph;
Var gd,gm:integer;
begin
clrscr;
detectgraph (gd,gm);
initgraph (gd,gm,'tp\7');
bar (300,60,360,90);
bar (360,60,375,120);
bar (255,75,300,100);
bar (225,80,255,130);
bar (210,105,240,145);
bar (225,130,260,180);
bar (240,180,275,210);
bar (275,190,300,215);
bar (300,195,360,220);
bar (360,205,390,280);
bar (390,240,405,280);
bar (375,280,400,325);
bar (375,325,390,343);
bar (325,340,375,360);
bar (300,360,345,380);
bar (255,350,300,370);
bar (225,330,255,370);
bar (120,360,125,400);
bar (150,360,155,400);
bar (420,30,425,60);
bar (450,30,455,60);
Readln
end.