type
TStack=class(TObject)
public
Data:Extended;
Next:TStack;
function Add(AData:Extended):TStack;
function Delete:TStack;
end;
function TStack.Add(AData:Extended):TStack;
begin
Result:=TStack.Create;
Result.Data:=AData;
Result.Next:=Self
end;
function TStack.Delete:TStack;
begin
Result:=Next;
Free;
end;
var Stack:TStack;
AData:Extended;
begin
Stack:=nil;
while not eof do
begin
Read(AData);
Stack:=Stack.Add(AData)
end;
while Stack<>nil do
begin
Writeln(Sqrt(Stack.Data));
Stack:=Stack.Delete
end;
end.

while not seekeof do

Edited by author 17.03.2009 14:43