Задан массив А [1..20]. Найти сумму случайных 5 чисел.

Var

a:array[1..5] of integer;

s:integer;

begin

s:=Random(100)+Random(100)+Random(100);

writeln(s);

Readln;

end.