однонаправленный список Паскаль, Делфи, Бейсик

[pionerka]

Всем добрый день. Преподаватель дал для решения такую задачу
Дан однонаправленный список L из элементов целого типа. Считая, что два первых его элемента L1 и L2 соответствуют 1-му и 2-му членам арифметической прогрессии, оставить в списке только члены этой прогрессии.
Сказал, что можно решить на любом языке программирования. Буду очень признательна в оказании помощи в решении.

[Stilet]

Если привильно понимаю то как-то так:

list:=Началосписка
n:=list.next^.data-list.data;
list:=list.next^.next;

while list.next<>nil do begin
 if (list.next^.data-list.data)<>n then begin
  list.next:=list.next^.next;
  dispose(list.next)
 end else begin
  list:=list.next;
 end;
end;

[pionerka]

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

Если привильно понимаю то как-то так:

list:=Началосписка
n:=list.next^.data-list.data;
list:=list.next^.next;

while list.next<>nil do begin
 if (list.next^.data-list.data)<>n then begin
  list.next:=list.next^.next;
  dispose(list.next)
 end else begin
  list:=list.next;
 end;
end;

Здравствуйте, Виталий. Спасибо вам за ответ. Мне ужасно стыдно, но не могли бы уточнить какой это язык( ооочень давно не программировала и забыла всё). Остатки моих мыслей подсказывают мне, что это Турбо Паскаль?

[Stilet]

Это применимо и к паскалю и к Делфи.
Опять таки, чтоб быть честным скажу: Код с потолка. Уж больно задание твое не от мира сие