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.