помогите написать программу вычесления для заданного натурального числа N:
S=1+√2+√3+....+√N

s наверное в real ты забыл занести

uses crt;var i,N:integer;s:real;begins:=0;write('вв N');read(N);for i:=1 to N do s:=s+sqrt(i);write('otvet:', s);readkeyend.