{faça um algoritmo que escreva numeros na tela de 1 até 10
e depois some somente os numeros pares e exiba o resultado}
Program Pzim ;
var
i, num:integer;
soma:real;
Begin
soma:=0;
for i:=1 to 10 do {faz de 1 até 10}
begin
writeln('Digite um número: ' ); {solicita que digite um numero}
readln(num); {lê o numero}
clrscr; {limpa a tela a cada vez que digita um numero e dá enter}
if (num mod 2 = 0) then {se o numero dividido por 2 (condição pra ser par) é igual a zero}
begin
soma:=soma+num; {soma o numero}
end;
end;
writeln('A soma dos numeros pares é : ',soma); {mostra o resultado}
End.
