написать программу, буду очень рад любой

//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 

1)необходимо аккуратно обращаться с проводами;
запрещается работать с неисправным компьютером;
нельзя заниматься очисткой компьютера, когда он находится под напряжением;
недопустимо самостоятельно проводить ремонт оборудования при отсутствии специальных навыков;
нельзя располагать рядом с компьютером жидкости, а также работать с мокрыми руками;
нельзя в процессе работы с ПК прикасаться к другим металлическим конструкциям (например, батареям);
не допускается курение и употребление пищи в непосредственной близости с ПК и др