Помогите составить 10 образцов на тему среднее арифметическое как на фото

На pascal abc
uses crt; var a, b, c : real;begin write('Введите три числа (через пробел): '); readln(a, b, c); if (agt;=0) and (alt;10) and (bgt;=0) and (blt;10) and (cgt;=0) and (clt;10) then writeln ((a+b+c)/3) else writeln ('Число не принадлежит промежутку [0;10)');end.