https://pastein.ru/t/P-

  скопируйте уникальную ссылку для отправки

Загрузка данных

var i,sum,jislo: integer;
begin
jislo:= 0;
i:= 0;
repeat 
  i:= i +1;
  jislo:= random(15);
  sum:= sum + jislo;
until i > 10;
writeln(sum);
writeln(i);
writeln(sum/i);
 
end.