вести случайные числа от 1 до 10 найти их сумму (паскаль)

[hakas-1995]

вести случайные числа от 1 до 10 найти их сумму

_________
Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться,
а автор такой темы получать штрафы.

Прошу учесть на будущее...

Модератор.

[Mad_Cat]

var i,s:Integer;
begin
s:=0;
for i:=1 to 10 do
s:=s+random(10)+1;
write(s);
end.