Question

В чем ошибка?
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

Answer 1

Правильно будет until x>=b;