рисунок

uses graphabc;
var x1,x2,y1,y2: integer;
 
 
begin
       //призма
 
    line(0,150,640,150);  //верхняя линия1
    line(0,160,640,160);//нижняя линия1
    setpenstyle(pssolid);
    lineto(640,150);
    line(0,250,640,250);//верхняя линия2
    line(0,260,640,260);  //нижняя линия2
    setpencolor(clred);
    line(100,60,320,150); //луч
 
    setpencolor(clred) ;
    line(320,150,400,260) ;
    line(400,260,640,350) ;
       setpencolor(clgreen) ;
    setpenstyle(psdash);
setpenwidth(1);
    line(320,100,320,300);  //ось
setbrushcolor(clyellow);
setpencolor(clyellow);
 
circle(90,45,30);
 
 
 
end.