скорей, и можно с объяснением

begin

 var quantity := 0;

 var amount := 0;

 var A := readinteger();

 var B := readinteger();

 for var i := A to B do

 begin

   if (i mod 3 = 0) and (i mod 10 <> 0) then

   begin

     inc(amount, i);

     inc(quantity);

   end;

 end;

 writeln(amount / quantity:0:2);

end.

Объяснение:

begin  // Начало программы

 var quantity := 0;  // Объявление переменной, хранящей количество элементов, подходящих под условие

 var amount := 0;  // Объявление переменной, хранящей сумму элементов, подходящих под условие

 var A := readinteger();  // Считывание числа А с клавиатуры

 var B := readinteger();  // Считывание числа В с клавиатуры

 for var i := A to B do  // Идём от А до В

 begin  // Начало цикла

   if (i mod 3 = 0) and (i mod 10 <> 0) then  // Если значение переменной i делится на 3 без остатка И значение переменной i не заканчивается на 0

   begin  // Начало условного оператора

     inc(amount, i);  // Прибавляем к переменной amount значение переменной i

     inc(quantity);  // Прибавляем к переменной quantity единицу

   end;  // Конец условного оператора

 end;  // Конец цикла

 writeln(amount / quantity:0:2);  // Вывод среднего арифметического с точностью до 2 знаков после запятой

end. // Конец программы

Я тебе дал,а ты сам подумай)

Объяснение:

Repeat — это цикл с пост условием то есть в первый раз всё равно выполнится. Теперь разберём цикл, он будет выполнять это действие

(p:=p*0.1) пока (p) не станет меньше 0.1 , теперь работаем в теле цикла, (p) изначально равен двум по этому получаем p:=1*0,1; получаем p:=0,1 проверяем условие 0,1<0,1  нет повторяем второй раз цикл, теперь p:=0,1 а не 1 как было в первый раз p:=0,1*0,1 p:=0,01 проверяем условие

0,01<0,1  да меньше цикл прерывается и (p) остаётся равным 0,01