Можно ли поменять чип или что частоту дело в том что у меня на компьюторе тактовая частота 1,7 ггц а я хочу заменить её на 2 ггц , так вот можно ли это

тактовая частота - это характеристика процессора, и, как правило, постоянная => тактовая частота меняется вместе с процессором : )

а для  оверклокинга вы еще зеленоваты.

это возможно, только если менять всю материнскую плату, а с этим и все что к ней подключается. хотя можно найти такую же, только с обновленным процессором на ней. вообще это тяжело и муторно) нужно все настраивать,переустанавливать, легче новый купить)

ваши ошибки:

1) объявление текстовых переменных и неиспользование их.

2) ненужный тип longint, зачем такой большой тип?

типа integer вполне достаточно (-32 768 … 32 767).

3) объявление абсолютно ненужной переменной z.

4) главная ошибка - это непонимание , и соответственно неправильно построенный алгоритм.

попробуйте это, самое оптимальное по времени, минимальное кол-во переменных. использован метод гаусса, можно было и арифм. прогрессию.

var

  n: integer;

  text: text;

begin

  assign(text, 'input.txt'); reset(text);

  readln(text, n); close(text);

  if (n > 10000) then exit;

  assign(text, 'output.txt'); rewrite(text);

  if n < 0 then writeln(text, + abs(n)) * (abs(n) / 2) - 1))

  else writeln(text, (1 + n) * (n / 2));

  close(text);

end.