Program pr; uses crt; Var a,b,x,y,h:real; Begin Writeln('Введите a,b'); readln(a,b); Writeln('Введите шаг'); readln(h); x:=a; While x<=b do<br>Begin y:=2*cos(x)-1; Write('x=',x:6:2, ' y=',y:6:2); Writeln; x:=x+h; end; readln; end.