Programa Serie dia 30

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

Program serie;
 Var
i, Ser: integer; 
Begin 
I:=1;
while i<= 100 do
Begin
Ser:= i*10;
writeln (Ser);
 i:=i+1 
End;
Readln
End.