Написать программу в паскале, используя оператор for . вычислить s=√(5)+√(6)+√(7)++√(26)

Var i:integer;
s:real;
begin
s:=0;
for i:=5 to 26 do 
s:=s+sqrt(i);

write('ответ: ',s);
end.