PROGRAM LISTS(INPUT,OUTPUT);
TYPE 
     PERSON=RECORD
              NO:INTEGER;
              NEXT:^PERSON
     END;
VAR FIRST,P,PT:^PERSON;
    B:BOOLEAN;
    I,S:INTEGER;
BEGIN
FIRST:=NIL;
FOR I:=1 TO 5 DO
  BEGIN
  READ(S);NEW(P);
  P^.NEXT:=FIRST;
  P^.NO:=S;
  FIRST:=P;
  END;
PT:=FIRST;
B:=TRUE;
WHILE (PT<>NIL) AND B DO
  IF PT^.NO=30 THEN B:=FALSE ELSE PT:=PT^.NEXT;
END.