Люди мне надо решить одну задачу в паскале, если есть кто в нем рулит помогите, а то я сам не успею.



Даны указатели P1 и P2 на начало и конец непустой очереди. Извлекать из очереди элементы, пока значение начального элемента очереди не станет четным, и выводить значения извлеченных элементов (если очередь не содержит элементов с четными значениями, то извлечь все ее элементы). Вывести также новые адреса P3 и P4 начала и конца очереди (для пустой очереди положить P3 = P4 = nil). После извлечения элементов из очереди освобождать память, занимаемую этими элементами.

Лучше бы ты саму задачу выложил, а там уже видно будет.

p3 := p1;
p4 := p2;

TPtr q;

while not Odd (p3^.Info) and (p3 <> nil) do
begin
Writeln (p3^.Info);
q = p3;
p3 := p3^.Link;
Dispose (q)
end;

if p3 = nil then
begin
p4 := nil;
Writeln ('p3 = p4 = nil')
end
else
Writeln ('p3=', p3, 'p4=', p4);

В идеале должно работать. Не проверял, ибо написано "сходу" так сказать. Мог я и условие не досмотреть )))

(ппц. какого хрена оно мои отступы "скушало"? мало того что пришлось пробелом, ане табом делать, так и такое жолбство)