procedure TForm1.Button11Click(Sender: TObject);
var c,i,n:integer;
begin
  n:=strtoint(InputBox('Zadajte pocet opakovani','Zadajte pocet opakovani','0'));
  for i:=1 to n do
   begin
     c:=strtoint(InputBox('Zadajte cislo','Zadajte cislo:','0'));
     if c mod 2 = 0 then showmessage('Cislo '+inttostr(c)+' je parne')
       else showmessage('Cislo '+inttostr(c)+' je neparne');
   end;
end;