проблема с until

[arshavin]

Составить алгоритм и написать программу, которая вычисляет и выводит на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора, на интервале от xнач до xкон с шагом dx с точностью e. Таблицу снабдить заголовком и шапкой. Каждая строка таб-лицы должна содержать значение аргумента, значение функции и количество просуммированных членов ряда.

program mak62;
var c, e, f, x, y, xn, xk, dx: real;
n, i: integer;
  begin
writeln ('введите xn, xk, dx, e');
readln (xn, xk, dx, e);
x:=xn;
repeat
y:=1;
n:=1;
f:=1;
for i:=1 to 2*n do
f:=f*i;
c:=exp(2*n*ln(x))/f;
if n mod 2=0 then y:=y+c
             else y:=y-c;
n:=n+1
until c<e;
writeln (x,y,n-1);
x:=x+dx;
until x>xk
end.

пишет "ожидался идентефикатор но until обнаружено" что не так??

[Alex11223]

А что вы сделать-то хотите с until? После repeat вы видимо забыли begin и соответственно end перед первым until. А второй until вообще не понятно к чему. (в задание и остальной код не вникал)

[casekey]

между until и repeat необязательны операторы begin\end. Проблема во втором until, видимо забыли repeat