Программа вычислеия функции

[Тина_Г]

Разработать схему алгоритма и составить программу вычисления функции при заданных значениях аргументов. Результаты вывести на экран дисплея.
Безымянный.png

Program pr3;
   Var y, x, k, dx, f, a: real;
Begin
   Writeln ('Введите dx');
   Readln (dx);
      Writeln ('------------------------------------------');
      Writeln ('|     y      |      x      |      k      |');
      Writeln ('------------------------------------------');
   
     y:=1;
     k:=1;
     x:=0.2;
   while k<12 do
   begin
   if x<1 then a:=k*f else
   if x>=1 then a:=1;
       f:=(2*k*x)/(x+k*k);
       x:=x+1;
       y:=(a*(x*x))/sqrt(x+f);
       Writeln ('|', y:9:2,'   |', x:3:2,'         |', k:2:1,'          |');
   Writeln ('------------------------------------------');
   end;
End.

Почему не работает?

[Stilet]

while k<12 do

А где у тебя "к" изменяется?
Это бесконечный цикл получился.