помогите в pascal не получается while..do!!!!

ответ не такой как у двух задач
===============
var
N,i: integer;
S: real;
begin
Write('Введите значение N= ');
ReadLn(N);
S :=0;
i := N;
while i > 1 do
begin
i := i - 1;
S := Sqrt(i * 3 + S);
end;
WriteLn('Значение выражения ', S:10:10);
ReadLn;
end.
====================
var
N,i: integer;
S: real;
begin
Write('Введите значение N= ');
ReadLn(N);
S :=0;
i := N;
repeat
i := i - 1;
S := Sqrt(i * 3 + S);
until i > 1;
WriteLn('Значение выражения ', S:10:10);
ReadLn;
end.
===============
var
n: Integer;
i: Integer;
r: Real;
begin
Write('Введите значение n: ');
Readln(n);
r := 0;
for i := n downto 1 do
r := Sqrt(3 * i + r);
Writeln('результат = ', r:10:10);
Readln;
end.
====