Програмирование .паскаль.цикл корень3+корень6+корень9+ надо написать программу

//Pascal ABC.NET v3.1 сборка 1172

Var
 i,n:integer;
 r:real;
begin
 readln(n);
 for i:=1 to n do
 r:=r+sqrt(3*i);
 writeln(r);
end.

Пример ввода:
3
Пример вывода:
7.18154055035206