Кто может помочь решить задачку в турбо паскале 7.0?

типа найти сумму всех игреков?
var
y,sum,x:real;

begin
x:-5;
sum=0;
while x<=5 do
begin
y:=sqrt(1+x*x);
sum:=sum+y;
x:=x+0.5
end;
writeln("сумма всех значений у=",y:5);
readln;
end.