uses crt;
var y0,y1,yn,eps:real;
n:integer;
begin
clrscr;
writeln('Введите значения y0,y1');
readln(y0,y1);
yn:=0.25*sin(y1)+0.5*sin(y0);
repeat
write('Введите значение точности больше 0 и меньше ',abs(yn):0:1,' eps=');
readln(eps);
until(eps>0)and(eps<abs(yn));
while abs(y1-y0)>eps do
begin
y0:=y1;
y1:=yn;
yn:=0.25*sin(y1)+0.5*sin(y0);
end;
write('Yn=',yn:0:5,' eps=',abs(yn-y1):0:5);
readln
end.