Program Zadanie3;
Uses Crt, Graph;
Const
a=0; b=5; h=0.02;
Var
GrDr,GrMod:integer;
Scale:integer;
y,x,s:real;
x0,y0,mx,my,px,py:integer;
Function f(x:real):real;
begin
if(x>=0)and(x<2)then f:=1;
if(x>=2)and(x<=5)then f:=sin(x);
end;

Function Integ(h:real):real;
begin
x:=a;
s:=0;
while x<b do
y:=f(x);
s:=s+y*h;
x:=x+h;
end;

begin
GrDr:=Vga; GrMod:=VgaHi;
InitGraph(GrDr,GrMod,'C:\BP7.0\BGI\');
setcolor(11);
x0:=320; y0:=240;
mx:=20; my:=20;
Line(0,y0,630,y0); Line(x0,0,x0,470);
Line(315,10,320,0);Line(320,0,325,10);
Line(630,235,640,240);Line(640,240,630,245);
OutTextXY(628,250,'X');
OutTextXY(300,5,'Y');

begin
px:=x0+Round(x*mx);
py:=y0-Round(y*my);
PutPixel(px,py,12);
end;
Readln;
end.