Операторы цикла

[stud3nt]

Доброго времени суток!
Буду благодарен, если кто нибудь окажет помощь в решении задачки..
http://saveimg.ru/show-image.php?id=...fb28612dab09ea

ее решение есть, но преподу не понравилось=(( Нужно как то проще решить, используя for, while или repeat

uses crt;
var x,e,t,s,sk:real;
    k:integer;
begin
clrscr;
repeat
write('x<>0 x=');
readln(x);
until x<>0;
repeat
write('e>0 e<',x*x/4:0:2,' e=');{точность меньше начальной суммы 
или не сойдется ряд}
readln(e);
until (e>0)and(e<x*x/4);
k:=0;{нулевой член}
sk:=x*x/4;{нулевая сумма}
t:=x*x/4;{нулевой член ряда}
s:=0;{итоговая сумма}
while abs(s-sk)>e do{пока разность соседних сумм больше точности}
 begin
  k:=k+1;{увеличиваем счетчик}
  s:=sk;{запоминаем предыдущую сумму}
  t:=-t*x*x/(4*sqr(k+1));{вычисляем очередной член по рекуррентному
 соотношению An=An-1*(-1)*(x/2)^2/(n+1)^2}
  sk:=sk+t;{суммируем}
 end;
writeln('S=',s:0:5,' e=',abs(s-sk):0:5);{выводим результат и 
для контроля достигнутую точность}
readln
end.