asd / корзина / лекции по TP / Lecture_Pascal / graph / VALEK

Program lek;
Uses Graph,crt;
var
 Gd, Gm: Integer;
 Radius,i: Integer;
begin clrscr;
 Gd := Detect;
 InitGraph(Gd, Gm, 'c:\tp70\bgi ');
 if GraphResult <> grOk then
   Halt(1);

SetFillStyle(3,5 );
Bar3D(350, 200, 430,120,60,topon);
setcolor(6);
Rectangle(200,300,350,400);
SetTextStyle(DefaultFont, vertDir, 3);
OutTextXY(200, 330, 'colors');
settextstyle(defaultfont,horizdir,5);
outtextxy(100,100,'    TTTTT');
 Readln;
 CloseGraph;
end.