{$apptype GUI}
{$mode objfpc}
 
Uses Gl, Glu,Glut;
 
procedure display(); cdecl; 
begin
     glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
     glClearColor(0.0, 0.0, 0.0, 0.0);   // Очистка экрана в черный цвет
     glBegin(GL_TRIANGLES);
           glVertex3f( 0.0, 1.0, 0.0);  // Вверх
           glVertex3f(-1.0,-1.0, 0.0);  // Слева снизу
           glVertex3f( 1.0,-1.0, 0.0);  // Справа снизу
     glEnd();
 
     glFlush();
end;
 
begin
  glutInitDisplayMode(GLUT_SINGLE or GLUT_RGB); 
  glutInitWindowPosition(0,0);
  glutInitWindowSize(500,500);
  glutCreateWindow('triangle example'); 
  glutDisplayFunc(@display);
  glutMainLoop(); 
end.