PROCEDURE lampe2; VAR winkel, dicke, hoehe: real; BEGIN; winkel:= IntDialog('Winkel (Zahl) ?', '90'); hoehe:= IntDialog('Höhe (Zahl) ?', '400'); dicke:= IntDialog('Dicke (Zahl) ?', '10'); Smooth(3); Poly(0,hoehe,75,(hoehe+winkel),150,hoehe,225,(hoehe-winkel),300,hoehe,300,hoehe-dicke,225,(hoehe-dicke-winkel),150,hoehe-dicke,75,(hoehe-dicke+winkel), 0,hoehe-dicke, 0, hoehe); END; RUN(lampe2);