Programa Serie 2 dia 04

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

Program SERIE;
 Var
i,M:integer;
S:Real;
Begin 
S:=0;
writeln ('int. M');
readln (M);
For i:=1 to 100 do
S:=s+M/i;
writeln (s);
End.