program grafika;
{$N+}
{$E+}
Uses Graph,crt;
const
{ OPTIONS }
shag=0.0001;
lgr=-5;
pgr=5;
zcrtX=320;
zcrtY=240;
mtrX=50;
mtrY=50;
colorG=5;
colorOXY=11;
OXYminX=-270;
OXYmaxX=270;
OXYminY=-200;
OXYmaxY=200;


Var grDriver:integer;
     grMode:integer;
     ErrCode:integer;
   x,y:real;{extended;}
       i:integer;
Begin
grDriver:=Detect;
InitGraph(grDriver, grMode, ' ');
ErrCode:=GraphResult;
if ErrCode<>grOk then begin
writeln('Oshibka: ',GraphErrorMsg(ErrCode));
readln;
halt(100);
end;
setcolor(colorOXY);
line(zcrtX+OXYminX, zcrtY, zcrtX+OXYmaxX, zcrtY); { horz }
moveto(zcrtX+OXYmaxX-7, zcrtY-2);
lineto(zcrtX+OXYmaxX, zcrtY);
lineto(zcrtX+OXYmaxX-7, zcrtY+2);

line(zcrtX, zcrtY-OXYminY, zcrtX, zcrtY-OXYmaxY); { vert }
moveto(zcrtX - 2, zcrtY-OXYmaxY+7);
lineto(zcrtX, zcrtY-OXYmaxY);
lineto(zcrtX + 2, zcrtY-OXYmaxY+7);

settextjustify(centertext, centertext);
outtextxy(zcrtX, zcrtY-OXYmaxY-(textheight('Y') div 2) - 3, 'Y');
outtextxy(zcrtX+OXYmaxX+(textwidth('X') div 2) + 3, zcrtY, 'X');

x:=lgr;
while x<=pgr do
begin
{readln(x);}
if abs(x)<=5 then begin y:=exp(-0.5*sqr(x));
{writeln(y:1:8);}
 putpixel(zcrtX+trunc(x*mtrX),zcrtY-trunc(y*mtrY),colorG) end;
 x:=x+shag;
end;
readkey;
readln;
closegraph;
end.