procedure TForm1.Button12Click(Sender: TObject);
var i,n,c,p,s:integer;
begin
  s:=0;
  p:=0;
  n:=strtoint(InputBox('','zadajte pocet opakovani:','0'));
  for i:=1 to n do
   begin
     c:=strtoint(InputBox('','Zadajte cislo:','0'));
     if c mod 2 = 0 then
       begin
         p:=p+1;
         s:=s+c;
       end;
   end;
  ShowMessage('Pocet parnych cisiel '+inttostr(p)+' sucet '+inttostr(s));
end;