Форум программистов [Powered by Invision Power Board]

Код

type
   TList= ^TNode;
   TNode= record
      digit: byte;
      next: TList;
   end;

{------------------------------------------------}
procedure AddInList (var theList: TList; theDigit: byte);
var
   node: TList;
begin
   new(node);
   node^.digit:= theDigit;
   node^.next:= theList;
   theList:= node;
end;
{------------------------------------------------}
procedure PrintList (theList: TList; theLimit: byte);
begin
   while (theList <> nil) do
   begin
      if (theList^.digit < theLimit) then
         write(theList^.digit, ' ');
      theList:= theList^.next;
   end;
end;
{------------------------------------------------}
var
   list: TList;
   digit: byte;
begin
   list:= nil;
   repeat
      readln(digit);
      if (0 < digit) and (digit < 100) then
         AddInList(list, digit);
   until (digit = 0);
   PrintList(list, 50);
end.