Помогите пожалуйста записать эти задачи языком Паскаля:
1. Определить попадает ли среднее арифметическое чисел a, b в промежуток [c; d]
2. Определить делится ли данное целое число на 8 и 125
Помогите пожалуйста, очень нужно, срочно

Пожалуйста

1.var a,b,c,d,s: real;beginwrite('a, b: ');readln(a,b);write('c, d: ');readln(c,d);s:=(a+b)/2;writeln('Среднее арифметическое = ',s:5:2);if (s>=c)and(s<=d) then writeln('Попадает')else writeln('Не попадает');end.Пример:a, b: 5 7c, d: 2 4Среднее арифметическое = 6.00Не попадает2.var a: integer;beginwrite('a = ');readln(a);write('Число ',a);if (a mod 8=0) then write(' делится на 8')else write(' не делится на 8');if (a mod 125=0) then writeln(' и делится на 125')else writeln(' и не делится на 125');end.Пример:a = 200Число 200 делится на 8 и не делится на 125

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018// Внимание! Если программа не работает, обновите версию!№1begin  var (a,b):=ReadReal2('Введите значения a и b:');  var (c,d):=ReadReal2('Введите значения c и d:');  if ((a+b)/2).InRange(c,d) then    Writeln('Среднее арифметическое попадает в промежуток')  else    Writeln('Среднее арифметическое не попадает в промежуток')end.ПримерВведите значения a и b: 3 4.7Введите значения c и d: 2 4Среднее арифметическое попадает в промежуток№2begin  var n:=ReadInteger('n=');  if n mod 8=0 then Writeln('Число делится на 8')  else Writeln('Число не делится на 8');  if n mod 125=0 then Writeln('Число делится на 125')  else Writeln('Число не делится на 125')end.Примерn= 1250Число не делится на 8Число делится на 125