Построение икосаэдра - Pascal

program Icosahedron;
 
uses GraphABC;
 
const
   n = 4;
   k = 12;
var
   T: array [1..k] of record
      x, y, z: real;
   end;
   i, j: integer;
   
begin    
   T[1].x := sqrt(5)/2; T[1].y := 0; T[1].z := 0;    {координаты вершин икосаэдра}
   T[12].x := -sqrt(5)/2; T[12].y := 0; T[12].z := 0;
   for j:= 0 to n do begin
      T[j+2].x := cos(j*72*pi/360); T[j+2].y := sin(j*72*pi/360); T[j+2].z := 0.5;
      T[j+7].x := cos((36+j*72)*pi/360); T[j+7].y := sin((36+j*72)*pi/360); T[j+2].z := - 0.5;
   end;
   for i:= 1 to k do begin 
      T[i].x := sqrt(3)*(T[i].y - T[i].x)/2;        {изометрическая проекция}
      T[i].y := T[i].z - (T[i].y + T[i].x)/2;       { ось y' совпадает с осью z, а ось x' перпендикулярна y' }
   end; 
   for i:= 1 to k do
   Line (round (T[i].x), round (T[i].y), round (T[i].z));
end.