Смоделируйте последовательность из 10 бросков игральной кости с гранями от 1 до 6 очков. Подсчитайте сумму выпавших очков. Паскаль АВС Датчик случайных чисел

var k,i,f:integer; begin; randomize; for i:=1 to 10 do  begin;   k:=random(1,6);   f:=f+k;   writeln(i,' бросок приносит ',k,' баллов. Текущая  сумма баллов:',f);  end; writeln('Финальная сумма баллов:',f); end. //Не "Датчик случайных чисел", a генератор певдослучайных чисел