Программа для построения графика

program Grafik;
uses graph;
const
shag=0.001;
min=-50;
max=50;
centerx=320;
centery=240;
var
driver,mode:integer;
x,y:real;
begin
readln;
driver:=0;
mode:=0;
initgraph(driver,mode,'c:\bp\bgi');
line(320,0,320,480); {рисуем ось Y}
line(0,240,640,240); {рисуем ось X}
x:=min;
while x<=max do
begin
y:=exp(abs(x)*ln(3))-50; {расчётная формула}
y:=abs(y);
if abs(y) < MaxInt then
putpixel(centerx+trunc(x),centery-trunc(y),red); {рисуем пиксел}
x:=x+shag; {шаг}
end;
readln;
end.