Скласти програму рішення виразу 1 в квадрате2 +2в квадрате 2 +3 в кадрате2 +4в квадрате 2
ЭТО НУЖНО ДЕЛАТЬ В ПАСКАЛЕ

Створюємо кнопку
Для кнопки (Button1) процедура onClick
Створюємо поле вводу
Створюємо текстове поле

procedure TForm1.Button1Click(Sender: TObject);var x: real;begin x:= StrToFloat(Edit1.Text);if Edit1.Text = '1'then Label1.Caption:= 'Январь';if Edit1.Text = '2'then Label1.Caption:= 'Февраль';if Edit1.Text = '3'then Label1.Caption:= 'Март';if Edit1.Text = '4'then Label1.Caption:= 'Апрель';if Edit1.Text = '5'then Label1.Caption:= 'Май';if Edit1.Text = '6'then Label1.Caption:= 'Июнь';if Edit1.Text = '7'then Label1.Caption:= 'Июль';if Edit1.Text = '8'then Label1.Caption:= 'Август';if Edit1.Text = '9'then Label1.Caption:= 'Сентябрь';if Edit1.Text = '10'then Label1.Caption:= 'Октябрь';if Edit1.Text = '11'then Label1.Caption:= 'Ноябрь';if Edit1.Text = '12'then Label1.Caption:= 'Декабрь';end;
end.  

//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

1)
begin
 var a:=ReadString('a->');
 Println('Сумма больше ',a.JoinIntoString(' ').ToIntegers.Sum>ReadInteger('k->')?'True':'False');
 Println('a четное ',a.ToInteger.IsEven);
end.

Пример:
a-> 123456
k-> 22
Сумма больше  False 
a четное  True 

2)
begin
  var a:=ReadInteger('a->'); Println('a нечетно',a.IsOdd);
  var b:=a.ToString.JoinIntoString(' ').ToIntegers;
  Println('Первая равна x',b.First=ReadInteger('x->')?'True':'False');
  Println('Последняя равна y',b.Last=ReadInteger('y->')?'True':'False');
end.

Пример:
a-> 456485
a нечетно True 
x-> 5
Первая равна x False 
y-> 5
Последняя равна y True