Вот это 7 класс:)
USES Graph;
VAR Device, Mode: Integer; 50 100 150 200 250 300
BEGIN Device:=0;
InitGraph(Device, Mode, ’<путь к графическим драйверам>’);
PutPixel(50,100,White); Rectangle(150,150,50,200); {правый верхний и левый нижний углы}
Circle(200,100,50); {окружность} {отрезок прямой}
Floodfill (200,100, red);
Line(100,50,250,150);
ReadLn;
CloseGraph;
END.