program graph5a;
var
  i: integer;
  xa,ya,xe,ye: integer;
  k,Hoehe: integer;
begin
graphmode;
draw(0,32,180,32,1);
for i:=0 to 12 do
  draw(15*i,31,15*i,33,1);
for i:=0 to 4 do
  draw(45*i,29,45*i,35,1);
for i:=0 to 180 do
  begin
  plot(i,32-round(31*sin(Pi/90*i)),1);
  end;
for i:=0 to 180 do
  begin
  k:=32-round(31*sin(Pi/90*i)*sin(Pi/15*i));
  for Hoehe:=33 to k do
    plot(i,Hoehe,1);
  for Hoehe:=31 downto k do
    plot(i,Hoehe,1);
  end;

repeat
until keypressed;

textmode;

end.