procedure TForm1.Button1Click(Sender: TObject);
vara, b,c : integer ;
begina:=StrToInt ( Edit1.Text ) ;
b:=StrToInt ( Edit2.Text ) ;
if a>b then c:=a-b else c:=b+a;
Label3.Caption:= 'Ответ: '+FloatToStr (c);
end;Задача 2. Сможет ли Вася купить 1 кг конфет стоимостью x рублей, если у него в кармане y рублей?
procedure TForm1.Button1Click(Sender: TObject);
vara, b : integer ;
begina:=StrToInt ( Edit1.Text ) ;
b:=StrToInt ( Edit2.Text ) ;
if b>=a then Label3.Caption:= 'Сможет ли купить Вася конфеты? да'
else Label3.Caption:= 'Сможет ли купить Вася конфеты? нет';
end; Задача 3. Дано натуральное число x, определяющее возраст человека. Определить является ли он школьником (возраст от 7 до 16 лет).