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.