Programa Par

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

Program Par;
 Var
i: integer; 
Begin
 for i:=0 to 100 do 
 if i MOD 2= 0 then 
 writeln (i);
	 readln 
End.