написать программу на языке паскаль

[bulaev]

лабораторную преподователь задал сделать но у меня это задание ни как не получается помогите. за ранее спасибо!!!!

[VIK_aka_TOR]

var i,n : integer;
x , esum : real;
begin
  readln(x);
  readln(n);
  esum := 0;
  for i :=0 to n do
    esum := esum + ( x + i)/ sqrt(x);
writeln(sqr(esum));
end.

c учетом того что это можно представить как квадрат.. е *е = sqr(e)... при желании сами добавите контроль на то что бы х не равнялось нулю...

[bulaev]

спасибо большое!!!!