Programowanie grafiki

Procedury graficzne
uses crt,graph;
var s,t:integer;
    xm,ym,xp,yp:integer;
    nap1,nap2,nap3:string;
begin
  initgraph(s,t,'');
  xm:=getmaxx;ym:=getmaxy;
  str(xm,nap1);
  str(ym,nap2);
  SetColor(yellow);
  Circle(300,300,75);
  setTextStyle(1,0,2);
  outtextxy(50,100,nap1);
  outtextxy(50,120,nap2);
  str(pi:2:4,nap3);
  Outtextxy(50,40,nap3);
  SetLineStyle(0,0,0);
  Line(0,200,xm,200);
  SetFillStyle(1,blue);
  Bar(50,250,150,350);
  Circle(300,300,50);
  SetFillStyle(1,green);
  FloodFill(300,300,Yellow);
  SetFillStyle(1,red);
  Bar3D(700,300,850,350,40,topon);
  Setcolor(15);
  Ellipse(600,400,0,270,50,100);
  PieSlice(300,500,0,60,200);
  readkey;
  closegraph;
end.