Помогите пожалуйста Составьте и запишите ДВЕ КОМПЬЮТЕРНЫХ программы ** языке...

Question

Помогите пожалуйста
Составьте и запишите ДВЕ КОМПЬЮТЕРНЫХ программы на языке программирования Паскаль для решения следующих задач:
Задача 1. Нахождение суммы всех чисел, оканчивающихся на 5 в диапазоне от 120 до 300.
Задача 2. Нахождение среднего арифметического значения чисел, оканчивающихся на 6 в пределах от 15 до 100.

Answer 1

Задача 1.
Var
   A:integer;
   S:real;
Begin
S:=0;
For A:= 120 to 300 do
    S:=S+A;
WriteLn('S = ',S);
End.

Результат работы программы:
S = 38010


Задача 2.
Var S:real;
    n,A:integer;
Begin
n:=0;
S:=0;
For A:= 15 to 100 do
    if A mod 10 = 6 then
       Begin
       S:=S+A;
       n:=n+1
       End;
WriteLn('Sr = ',S,'/',n,' = ',S/n);
End.