Var
a: array [1..4] of char;
i: integer;
begin
a[1] := 'S';
a[2] := 'I';
a[3] := 'M';
a[4] := 'A';
for i := 1 to 4 do
write(ord(a[i]) - 64, ' ');
end.
а самостоятельно подобрать число никак?
Если под "кб" подразумевались килоБИТы, то 3500*1024/16/3200 = 70 секунд. Если – килоБАЙТы, то 3500*1024*8/16/3200 = 560 секунд.