Не трать деньги на этот мусор, собранное из него это позавчерашний день! Проц бери хотя бы I3, а памяти не меньше 3Г. Причём, повторюсь, практически за те же деньги.
Если это как бы виртуально, то есть абстрактная задача, то такого рода задачи решаются, например, так
1. Комплектующие раскладываются на "кучки", у тебя это будут отдельные списки, отдельно CPU(процессоры), MB(мамы), Memory(память), HDD(винты) ну и так далее.
В каждом списке основные х-ки, стоимость.
Далее смотришь на то, что в конце-концов хочешь получить и набираешь наилучший вариант, если вышел за лимит стоимости, начинаешь "жертвовать" чем либо, заменяя на более дешёвый вариант. В конце концов получится один или несколько примерно равных вариантов.
Ну, например, если заниматься медиа-, нужжен мощный проц, звуковуха, видеокарта, колонки.
Если играть в игры - то основное видеокарта
Если офисный вариант, то всё по-среднему, всё равно тексты набирать в Ворде.
НО, повторюсь, предлагаемые тобой комплектующие - на сегодняшний день -МУСОР, из которого ничего стоящего собрать нельзя, даже офисный вариант будет слабоват.
Кстати, сейчас, например, LCD-19' стоят всего $100-150. И нужно брать 22-24'', которых у тебя в списке нет.
const
n = 9; //константа может быть любой
type
mas = array[0..n] of integer; //тип задал только для процедуры, без подпрограмм отдельный тип не нужен
procedure copy_mas(var a, b: mas);
var
i, i1: integer;
begin
i1 : = 0;
for i : = 0 to n do
if (a[i] > = 0) and (a[i] < = 10) then
begin
b[i1] : = a[i];
i1 += 1;
end;
end;
begin
writeln('Введите расстояние в километрах');
readln(a);
a:=a*1000/1066.8;
writeln(a);
end.