Из-за чего зациклилась программа?

[Ploho]

var a,s,b,h,x,y:real;
n:integer;
begin
a:=1;
b:=4;
h:=0.15;
while a<b+h/2 do
 begin
  if a<3 then
    y:=abs(sin(x)/3.12)+cos(sin(3*x)-0.3)
  else 
    s:=0;
    for n:=2 to 6 do
    y:=s+(n+x)*(n*n-x*x);
  writeln('x=',x:4:2,' y=',y:7:3);
  x:=x+h;
 end;
readln
end.

[BDA]

В условии цикла while находятся 3 переменных ("a", "b", "h"), но ни одна из них не меняется внутри цикла.

[ViktorR]

while a<b+h/2 do
...

У тебя a = 1, b = 4 и h > 0.
Как думаешь, когда условие цикла не выполниться?
Как только a станет >= b + h/2, так и цикл не будет повторяться.
Вероятно надо сделать так:

x := a;
while x < b do
begin
   x := x + h; {или как там по условию задачи ...}
   ...
   ...
end;

Как-то так, ...