Вложенные циклы.Pascal

[guardi]

Добрый день,не могли бы посмотреть сам код,нигде нет ошибок,у меня вся работает,готовлюсь к экзамену,нужно прорешать 30 вариантов,хочу проверить хотя бы один,чтобы быть уверенным,что всё сделано правильно.

program number15;
var
y,a,x,x0,hx,xn,S:real;
k,kn:integer;
begin
 x0:=0.2;
 hx:=0.2;
 xn:=1.6;
 kn:=12;
 x:=x0;
 while x < xn do
 begin 
  if x < 1 then
   begin
      s:=0;
      for k:=1 to kn do
        begin
        s:=s+(2*k*x)/(x+sqr(k));
        end;
       a:=(s*2*k*x)/(x+sqr(k));
       writeln('x =', x ,' a =',a:2:4)
   end
   else
    begin
    a:=1;
    writeln('x =', x ,' a= ',a:2:4);
    end;
 y:=(a*x)/ sqrt(x+a);
 writeln('y= ', y:2:4);
 x:=x+hx;
 end;

[p51x]

a:=(s*2*k*x)/(x+sqr(k));

Что это? Зачем еще один шаг?

[guardi]

Сообщение от p51x

a:=(s*2*k*x)/(x+sqr(k));

Что это? Зачем еще один шаг?

Да,разобрался,спасибо!