модуль Graph

uses crt,graph;
var gd,gm:integer;
    x0,y0,a,p,x1,y1,x,y:longint;
    s:string;
begin
clrscr;
repeat
write('Vvedite a ot 1 do 230 a=');
readln(a);
until (a>0)and(a<230);
repeat
write('Vvedite p ot 1 do 330 p=');
readln(p);
until (p>0)and(p<330);
gd:=0;
initgraph(gd,gm,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
Setbkcolor(15);
Setcolor(1);
line(0,y0,getmaxX,y0);
line(x0,getmaxY,x0,0);
line(x0-5,15,x0,0);
line(x0+5,15,x0,0);
line(625,y0-5,640,y0);
line(625,y0+5,640,y0);
Settextstyle(0,0,2);
outtextXY(x0+7,7,'Y');
outtextXY(620,y0+10,'X');
Settextstyle(0,0,1);
str(p,s);
outtextXY(x0-p-20,y0+10,'-'+s);
outtextXY(x0+p,y0+10,s);
outtextXY(x0+5,y0+10,'0');
str(a,s);
outtextXY(x0+5,y0+a,'-'+s);
x1:=(2*x0+p)div 2+10;
y1:=(2*y0+a) div 2+20;
outtextXY(x1,y1,'F(x)');
line(x1,y1,x1-10,y1-20);
setlinestyle(0,0,3);
x:=0;y:=y0+a;
moveto(x0,y);
while (x<x0)and(y>0)do
 begin
  x:=x+1;
  y:=y0+a+round((-a)*x/p);
  lineto(x0-x,y);
 end;
line(x0,y0+a,x0+p,y0);
line(x0+p,y0,620,y0);
readln
end.