сегодня надо сделать,кто поможет?

[abibas102]

Дорый день.Помогите решить задачу ,сам ни как не додумаюсь:

На интервале протабулировать функцию
d= ln y/sin²(x+y) + ln (a*b)/y,
причём, если y<(b-a)/ 2.8, то y=0.3 , иначе y=0,2 ,
а=1.18, b=2.44, х=0.564.

это мой вариант:
Uses Crt;
const
a =1.18;
b =2.24;
var
x,d,y : real;

begin
clrscr;
x:=0.564;
y:=1.18;

while y <= b do
begin

d:=ln(y)/sqr(sin(x+y))+ln((a*b)/y);
y:=y+0.564;
if y<(b-a)/2.8 then writeln(y=0.3) else writeln(y=0.2);
writeln(d,' ' ,y);

end;
readln;
end.