Ответ:
var x,y,z:integer;
begin
write('Введите цену старого процессора ');
readln(x);
write('Введите цену старой материнской платы ');
readln(y);
write('Введите цену новых комплектующих ');
readln(z);
writeln('Доплатить нужно ',z-x-y);
end.
Объяснение: