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.