pascal

[Guest troia]

program ex10;

uses crt;

var a : array[10..15] of integer;

var i : integer;

var cont : integer;

var par : string;

begin

clrscr;

for i := 10 to 15 do begin

writeln('digite os numeros entre 10 e 15');

readln(a);

for i := 10 to 15 do begin

if a mod 2 = 0 then

writeln('os numeros pares são ', par );

cont = cont + 1;

writeln('a quantidade dos numeros pares são ', par );

end;

end.

[raphael_suporte]

qual é a sua dúvida?