Написать программу решения в Паскале с циклом for.

var i,k:integer;
s:real;
begin
k:=2;
for i:=1 to 25 do
begin
s:=s+sqrt(k);
k:=k+2
end;
WriteLn(s)
end.