составить программы (хотя бы 1)

Pascal ABC.Net

1)

begin

 var (x, y, z) := ReadInteger3('Введите 3 числа через пробел: ');

 Println(if (x + y + z) mod x = 0 then 'Делится без остатка' else 'С остатком');

end.

2)

begin

 Println('Среднее арифметическое: ', Range(10, 99, 1).Where(x -> x mod 2 = 0).Average);

end.