Копмьютерный вирус - это разновидность вредоносной программы, способная к самораспространению.
190 (16) = 110010000 (2)
если я правильно понял, то тогда так
10240 символов:16-символичный алфавит=640 бит=80 байт
var k:array[1..10] of integer;
var s:real;
var i:integer;
begin
for i:=1 to 10 do begin
k[i]:=round(10*random+3);
s:=s+k[i];
end;
write('Сумма массива = ', s);
writeln
end.
Должно работать, проверьте.