треугольные числа

[ivanenkovaolga]

Вводится последовательность из n чисел. Определить, является ли введённое число треугольным. Треугольными считаются числа такие: первый член последовательности равен 1, второй - на 2 больше первого, третий - на 3 больше второго и т.д., т.е. треугольными являются числа 1,3,6,10,15...

б)ввод чисел в компоненте ListBox, вывод в Label.

[Ponkole]

Вывел формулу образования n треугольного числа f(n)=(i*(i+1))/2
если в а) надо просто код без ListBox, Label то вот:

const nmax=1000;
var i,n:integer;
begin
read(n);
for i:=1 to nmax do
if i*(i+1)=n*2 then
  begin 
 write('yes');
 readln;
 readln;
 exit;
  end;
write('no');
readln;
readln;
end.

Если непонятно как оформить ввод чисел в компоненте ListBox, вывод в Label - спроси еще раз - тебе быстро ответят.

[ivanenkovaolga]

блин это надо в делфи код... я ваще лапух по программированию