Проблема с программой на Паскале. Циклы.

[Elabrion]

Не могу понять, почему программа в цикле считает значение функции, при аргументе со значением больше конечного??
вот код + фото результатов. исходные данные: а=2,7 xn=0.8 xk=2.4 dx=0.2

program lab2; 
var 
 Q,E:text; 
 a,x,xk,xn,dx,w:real; 
begin 
assign(Q,'lab2.dat'); 
assign(E,'lab2.res'); 
reset(Q); 
rewrite(E); 
read(Q,a,xn,xk,dx); 
x:=xn; 
while x<=xk do 
 begin 
 if x<=1 then 
 begin 
 w:=(a*(ln(x)/ln(10))+exp(1/5*ln(abs(sin(x)*sin(x)*sin(x)/cos(x)*cos(x)*cos(x)-cos(x))))); 
 writeln(E,'x=',x:5:2,' w=',w:5:2) 
 end 
 else 
 if x>=2 then 
 begin 
 w:=ln(a+x)/ln(x)-sin(exp(x))*sin(exp(x))*sin(exp(x)); 
 writeln(E,'x=',x:5:2,' w=',w:5:2) 
 end 
 else 
 begin 
 w:=(exp((x-1)*ln(a))+exp(1/3*ln(a*x))+(Pi*x*x*x)); 
 writeln(E,'x=',x:5:2,' w=',w:5:2) 
 end; 
 x:=x+dx; 
 end; 
write(E,'x=',x:5:2,' w=',w:5:2); 
close(Q); 
close(E); 
end.

[eoln]

Надо табуляцию использовать, тогда сразу видно, что в конце цикла идёт строка

x:=x+dx;

которая увеличивает переменную x, и в последней итерации х может выйти за границу, в этом случае цикл прерывается, НО после цикла снова идёт вывод последнего результата с уже изменённым значением икса.

 end; 
write(E,'x=',x:5:2,' w=',w:5:2); 
close(Q); 
close(E);

Либо после цикла убирай повторный вывод, либо исправляй повторный вывод на

write(E,'x=',(x-dx):5:2,' w=',w:5:2); 
close(Q); 
close(E);

, либо заменяй на repeat-until, и т.д. и т.п.

P.S. Зачем весь экран фотографировать? Достаточно маленького куска или просто скопировать вывод как текст.