24 lines
463 B
ObjectPascal
24 lines
463 B
ObjectPascal
uses FormsABC;
|
|
|
|
var
|
|
a,b,sum,prod: IntegerField;
|
|
d: Button;
|
|
|
|
procedure MyClick;
|
|
begin
|
|
sum.Value := a.Value + b.Value;
|
|
prod.Value := a.Value * b.Value;
|
|
end;
|
|
|
|
begin
|
|
a := new IntegerField('a:');
|
|
b := new IntegerField('b:');
|
|
LineBreak;
|
|
sum := new IntegerField('Сумма:',220);
|
|
LineBreak;
|
|
prod := new IntegerField('Произведение:',220);
|
|
LineBreak;
|
|
EmptyLine(20);
|
|
d := new Button('Вычислить');
|
|
d.Click += MyClick;
|
|
end. |