Составить программу подсчета суммы S первых 1000 членов гармонического ряда 1+1/2+1/3+1/4+...1/N. Округлить результат до двух знаков после запятой.

Program Summa;

Var   S:real;

 N:integer; 

Begin   S:=0;

N:=0;  

 repeat     N:=n+1;    

 S:=s+1/n   Until n>1000;  

 Writeln(s:0:2);

 End.