uses graph, crt;
type punkt=record
      x, y, z: real;
     end;
     joon=record
       p:array[1..4]of punkt;
     end;
var jn: joon;
abi, nurk: real; i, d, m, keskx, kesky: integer;
begin

 d:=detect; initgraph(d, m, '');
 jn.p[1].x:=-50*5; jn.p[1].y:=-30*5; jn.p[1].z:=0;
 jn.p[2].x:= 25*5; jn.p[2].y:= 15*5; jn.p[2].z:=0;
 jn.p[3].x:= -75*5; jn.p[3].y:= 15*5; jn.p[3].z:=0;
 jn.p[4].x:= 0; jn.p[4].y:= 0; jn.p[4].z:=50*5;
 nurk:=Pi/10;
 keskx:=getmaxx div 2; kesky:=getmaxy div 2;
 repeat
  for i:=1 to 4 do
  begin
   abi:=jn.p[i].x;
   jn.p[i].x:=jn.p[i].x*cos(nurk)-jn.p[i].z*sin(nurk);
   jn.p[i].z:=abi*sin(nurk)+jn.p[i].z*cos(nurk);
  end;
  cleardevice;
  setcolor(green);
line(keskx+round(jn.p[1].x), kesky+round(jn.p[1].y),
       keskx+round(jn.p[2].x), kesky+round(jn.p[2].y));
 setcolor(red);
line(keskx+round(jn.p[2].x), kesky+round(jn.p[2].y),
       keskx+round(jn.p[3].x), kesky+round(jn.p[3].y));
 setcolor(white);
line(keskx+round(jn.p[3].x), kesky+round(jn.p[3].y),
       keskx+round(jn.p[4].x), kesky+round(jn.p[4].y));
 setcolor(blue);
line(keskx+round(jn.p[1].x), kesky+round(jn.p[1].y),
       keskx+round(jn.p[4].x), kesky+round(jn.p[4].y));
 setcolor(magenta);
line(keskx+round(jn.p[1].x), kesky+round(jn.p[1].y),
       keskx+round(jn.p[3].x), kesky+round(jn.p[3].y));
 setcolor(yellow);
line(keskx+round(jn.p[4].x), kesky+round(jn.p[4].y),
       keskx+round(jn.p[2].x), kesky+round(jn.p[2].y));
  delay(100);
 until keypressed;
 closegraph;
end.