вот условие задачи
№1 надо вычислить значение функции y=sin(n*x)-cos(n/x), если N заданно, а X изменяется от Xo до Xк с шагом N. Вывести на печать значение функции, удовлетворяющие условию 0<y<0.5
А вот, что у меня есть
Program zadanie_1;
Uses crt;
Var n,x: integer; y:real;
Begin
ClrScr;
repeat
Write('Vvedite n=');
Readln(n);
for x:=1 to n do y:=sin(n*x)-cos(n/x);
until (y>0) and (y<0.5);
Write(' y=',y:4:2);
Readln;
End.