Const
 Nm=6;

Type
 Pup=Record
      Surname, Name, Class:String;
      Ball:Array[1..Nm] of Byte;
     end;

Var
 f,g:Text;
 Pupil:Array[1..100] of Pup;
 i,j,N:byte;
 b:boolean;

Begin
 Assign(f,'D:\Data.txt');
 Reset(f);
 N:=0;
 Repeat
  Inc(N);
  with Pupil[N] do
   begin
    Readln(f,Surname);
    Readln(f,Name);
    Readln(f,Class);
    for j:=1 to Nm do read(f,Ball[j]);
    Readln(f);
   end;
  if not EoF(f) then readln(f);
 Until EoF(f);
 Close(f);
 Writeln('Full list of pupils:');
 for i:=1 to N do
  with Pupil[i] do
   begin
    write(Surname:15,Name:10,Class:4);
    for j:=1 to Nm do write(Ball[j]:4);
    writeln;
   end;
 writeln;
 Assign(g,'D:\Result.txt');
 Rewrite(g);
 Writeln('List of pupils having no marks less then 4:');
 for i:=1 to N do
  with Pupil[i] do
   begin
    b:=true;
    for j:=1 to Nm do
     if Ball[j]<4 then b:=false;
    if b then
     begin
      writeln(g,Surname);
      writeln(g,Name);
      writeln(g,Class);
      for j:=1 to Nm do write(g,Ball[j],' ');
      writeln(g);
      writeln(g);
      write(Surname:15,Name:10,Class:4);
      for j:=1 to 6 do write(Ball[j]:4);
      writeln;
     end;
   end;
 Close(g);
 Readln
End.