[Terio]

1.) На форму помещаешь Edit, Button и Label. Для кнопки пишешь код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var k,m:integer;
s:string;
begin
s:=Edit1.Text;
s:=Copy(s,0,1);
k:=strtoint(s);
m:=strtoint(Edit1.Text);
if (k and 1) = 0 then
m:=m*2;
Label1.Caption:=inttostr(m);
end;

2.) На ту же форму помещаешь вторую кнопку и ListBox. Для кнопки пишешь код:

Код:

procedure TForm1.Button2Click(Sender: TObject);
Var   k,m:integer;
s:string;
A:Array [0..11] of integer;   //Объявляем массив из 12 элементов
i:integer;
begin
ListBox1.Items.Clear;
//Заполняем массив цифрами:
A[0]:=5;
A[1]:=10;
A[2]:=20;
A[3]:=30;
A[4]:=40;
A[5]:=50;
A[6]:=60;
A[7]:=70;
A[8]:=80;
A[9]:=90;
A[10]:=100;
A[11]:=200;
//Делаем цикл:
for i := 0 to High(A) do
begin
 s:=Copy(inttostr(A[i]),0,1); //Берем первое число
 k:=strtoint(s);
 m:=A[i];
 if (k and 1) = 0 then
 m:=m*2;
 ListBox1.Items.Add(inttostr(m)); //заполняем ListBox
end;