Нужна помощь. По Паскаль

[karakalpak]

Нужна помощь. По Паскаль
Мне задали задание. Написать программу на языке программирование Pascal.
Задача такая: Начертить график этой функций
F:=3*sin(sqrt(x))+0,35*x-3,8 на интервале [2.3]
У меня вот такая программа вышла но с ошибками помогите решить задачу.
Заранее благодарен

Uses Graph,crt;
const
{ OPTIONS }
shag=0.0001;
lgr = -50;
pgr = 50;
zcrtX=320;
zcrty=240;
mtrX=10;
mtrY=10;
colorG=15;
colorOXY=4;
OXYminX=-200;
OXYmaxX=200;
OXYminY=-200;
oxymaxY=200;

Var grDriver : Integer;
grMode : Integer;

x,y:real;{extended;}
i:integer;
Begin
grDriver:=Detect;
InitGraph(grDriver, grMode, '');
for i:=OXYminX to OXYmaxX do putpixel(zcrtX+i,zcrty,colorOXY);
for i:=OXYminY to OXYmaxY do putpixel(zcrtX,zcrty-i,colorOXY);
x:=lgr;
while x<=pgr do
begin
{ readln(x);}
if x>=2 then begin y:=3*sin(sqrt(x))+0,35*x-3,8;
if x<=3 then begin y:=3*sin(sqrt(x))+0,35*x-3,8;
{ writeln(y:1:8);}
putpixel(zcrtx+trunc(x*mtrX),zcrty-trunc(y*mtrY),colorg) end;
x:=x+shag;
end;
readkey;
closegraph;
end.

 

[bobers]

poprobyi bolee specializirovanii forum. ny tipa gde matematiki tysyutsja,.skinyt tebe koordinati' i risyi na bymazhke. s Pascal ja ne znakom a smodelirovaniem prihodilos' vozit'sja, poetomy chyu chto zaparka v jazike Pascal.(eto esli s moei storoni posmotret').a esli s Pascal y tebja ladi to mashina za tebja reshit.

i vsetaki ostaetsja zagadkoi?:->Написать программу. or .Начертить график.

a grafik tebe bi' za 2 minyti nachertili. esli na nyzhnyu kafedry zagljanesh

kak sdelaesh. anekdot atpishi, interesno v kakom meste smejalis' bolshe.

 

[Alexpal]

while x<=pgr do
begin
{ readln(x);}
if x>=2 then begin y:=3*sin(sqrt(x))+0,35*x-3,8;
if x<=3 then begin y:=3*sin(sqrt(x))+0,35*x-3,8;
{ writeln(y:1:8);}
putpixel(zcrtx+trunc(x*mtrX),zcrty-trunc(y*mtrY),colorg) end;
x:=x+shag;
end;

А оно вообще-то и компилироваться не должно. (или имелись в виду ошибки при компиляции?)
В процитированном куске на три бегина - два энда.
То есть один из блоков не закрыт.