Вывести последовательность чисел

[amki6]

Для заданного х вывести все положительные члены последовательности
x, (x-1)*2, (x-2)*3, (x-3)*4,........
с помощью оператора go to

[Stilet]

const x=1;
var i:integer;
label getoff;
begin
 i:=0;
 while true do begin
  writeln((x-i)*(i+1));inc(i);
  if false then goto getoff;
 end;
getoff: readln;
end.

[amki6]

Сообщение от Stilet

const x=1;
var i:integer;
label getoff;
begin
 i:=0;
 while true do begin
  writeln((x-i)*(i+1));inc(i);
  if false then goto getoff;
 end;
getoff: readln;
end.

А почему он выводит все значения? как сделать что бы он останавливался и выводил только положительные??

[s-andriano]

Сообщение от amki6

А почему он выводит все значения?

Потому, что программа не дописана.

как сделать что бы он останавливался и выводил только положительные??

Мне кажется, Вам подсказали вполне достаточно.
Либо доводите до ума сами, либо - в раздел Фриланс.

[amki6]

Сообщение от s-andriano

Потому, что программа не дописана.Мне кажется, Вам подсказали вполне достаточно.
Либо доводите до ума сами, либо - в раздел Фриланс.

ну хоть какую нибудь подсказку сказали(

[BDA]

Вы разобрали построчно код, чтобы понять, как он работает?
Особое внимание на 8ю строку.

[Stilet]

Потому, что программа не дописана.

Почему не дописана? В ТЗ сказано

вывести все положительные

Разве программа выводит отрицательные?

[BDA]

Stilet, а разве не выводит?

[Stilet]

а разве не выводит?

Стоп! Надо было икс поставить 1000 или MaxInt

[BDA]

Сообщение от Stilet

Стоп! Надо было икс поставить 1000 или MaxInt

Не понял.
http://ideone.com/ZuOqBC - бесконечный цикл.