Вчем ошибка? var a,b,h,y,x: real; m: integer; begin a: =pi/4; b: =pi/2; m: =10; h: =(b-a)/m; x: =a; y: =cos(x)/sin(x); writeln(' x=',x,' y=',y); repeat x: =x+h; y: =cos(x)/sin(x); writeln(' x=',x,' y=',y); until x=> b; end. выдает ошибку: undefined filename(0) : нельзя преобразовать тип keyvaluepair к boolean