для заданного натурального числа n написать программу вычисления выражения s=√1+√2+√3+√4+...+√n подстановка задачи i=1..n,s=0,s=s+√i

Uses Crt;vari,n : integer;S:Real;BeginClrScr;Write('Input N: ');ReadLn(n);s:=0;for i:=1 to n do s:=s+Sqrt(i);Write(S);End.