Вычислить √2+√4+√6+…√98, где √2 и т.д на всё выражение — Pascal(Паскаль)

uses crt;
var i:byte;
    s:real;
begin
clrscr;
s:=sqrt(98);
for i:=48 downto 1 do
s:=sqrt(2*i+s);
write('S=',s:0:2);
readln
end.