PROGRAM TEXT1;
USES CRT;
VAR
   F1: TEXT;
   STR: STRING;
   R: ARRAY[1..7] OF INTEGER;
   I,J: INTEGER;
   K: INTEGER;
BEGIN
SLRSCR;
ASSIGN(F1, 'D:\STUDENT\F1.TXT');
RESET(F1);
K :=0;
WHILE NOT EOF(F1) DO
   FOR I:=1 TO 7 DO
   BEGIN
      WHILE NOT EOLN(F1) DO
      READLN(F1,STR);
      K :=0;
      FOR J:=1 TO LENGTH(STR)-1 DO
         IF STR[J]='S' THEN
         K:=K+1;
         IF K>=2 THEN
         WRITELN(STR);
      END;
   CLOSE(F1);
END.