Ответ: Так. Стоп. Налей еще! Не понял, что нужно сделать? Кто куда входит? Лучше примером
ЗЫ: пишу на адрес - возвращается

Ответ: Что значит "несколько"? К какому сроку? Напишите здесь

Ответ: Правда, только не две, а три, и не в Паскале, а в Пасьянсе, и не решить, а про... (как бы это поинтеллигентнее сказать)
А серьезнее - Вы же сами видите

Ответ: Вот вариант, когда первым считается тот, что помещен в стек первым
uses CRT;
type
POne = ^TOne;
TOne = record Field: String[10]; Next : POne; end;

procedure Push( source: String; var MyStack: POne);
var p: POne;
begin New(p); if p = nil then Exit; p^.Field:=Source;
if MyStack = nil then begin p^.Next:=nil; MyStack:= p end
else begin p^.Next := MyStack; MyStack:=p end; end;

procedure ShowAll(MyStack: POne);
var p: POne;
begin P:=MyStack;
while p <> nil do begin
Write(p^.Field,'''' ''''); p:= p^.Next end; WriteLn end;

procedure DelEven(var MyStack: POne);
var p, q: POne; count : Integer;
begin {для стека принцип LIFO - первый помещенный в стек и
есть первый - так считаю может и неправильно :(( }
if MyStack = nil then Exit;
{находим четность последнего помещенного}
p:= MyStack^.Next; count:=1;
while p <> nil do begin p:= p^.Next; count:=count + 1 end;
WriteLn(''''count = '''',count);
if ODD(count) then p:=MyStack else
begin p:=MyStack^.Next; dispose(MyStack) end;
MyStack:=p;
{p^.Next - это четный теперь - его нужно удалить.
Он не может быть последним - в самом низу ПЕРВЫЙ}
while p^.Next <> nil do begin
q:=p^.Next^.Next; dispose(p^.Next); p^.Next:=q;
p:=q end; end;

procedure FreeAll(var MyStack: POne);
var p: POne;
begin
while MyStack <> nil do
begin
p:=MyStack^.Next;
Dispose(MyStack);
MyStack:=p
end;
end;

function IntToStr(Source: Integer): String;
var s: String;
begin Str(Source,S); IntToStr:=S end;

VAR st: POne; i : Integer;
BEGIN
ClrScr; st:=Nil; WriteLn(MemAvail);
for i:= 1 to 19 do Push(IntToStr(i), st);
ShowAll(st); DelEven(st); WriteLn;
ShowAll(st); FreeAll(st);
WriteLn(MemAvail);
END.

Ответ: {без наворотов - оси умеете :)) }
uses CRT, Graph;
function func(x: Real): Real;
begin func:= x + ln(x+0.5) - 0.5 end;

var x, y, dx, minX, maxX, minY, maxY: Real;
scaleX, scaleY: Real;
gm, gd, ge, bottom: Integer; scrX, scrY : Integer;
const margin_X = 10; margin_Y = 10; N = 200;
procedure GetCoord(x: Real; var scr_X, scr_Y: Integer);
begin scrX:=margin_X+round((x - minx)*ScaleX);
scrY:=bottom - round((func(x) - miny)*ScaleY) end;

BEGIN
gd:=Detect; InitGraph(gd, gm, ''C:BPBGI'');
ge:=GraphResult; if ge <> GrOk then begin
WriteLn(''Graphics error:'', GraphErrorMsg(ge)); Halt(1); end;
minX:= 0; maxX:= 3;
dx:=(maxX - minX)/N;
minY:= func(minX); maxY:= func(maxX);
ScaleX:=(GetMaxX - 2*margin_X)/(maxX - minX);
ScaleY:=(GetMaxY - 2*margin_Y)/(maxY - minY);
bottom:= GetMaxY - margin_Y;
x:=minX; GetCoord(x, scrX, scrY); MoveTo(scrX, scrY); SetColor(lightCyan);
while x < maxX do begin x:=x+dx;
GetCoord(x, scrX, scrY); LineTo(scrX, scrY); end;
ReadKey; CloseGraph;
END.

Ответ: Привет. Только сейчас увидел (15 мая). Тоже некогда, но постараюсь к завтрашнему утру

Ответ: Со мной? :))