Помогите решить задачу в паскале Задание 2. номер 8

var   a,b,h,x,f:real;beginwrite('Введите a,b,h: ');readln(a,b,h);x:=a;writeln('x':8,'F(x)':12);repeat  f:=2*tan(x/2)+1;  writeln(x:10:3,f:10:3);  x:=x+h;  until x>b;end.