program z14_30;
type zacis=record
fio:string;
add:string;
mat:integer;
inf:integer;
zoc:integer;
end;
const n=5;
var a:array[1..n] of zacis;
i,j,max:integer;c:zacis;
begin
for i:=1 to n do
with a[i] do begin readln(fio);
readln(add);readln(mat);readln(inf);
readln(zoc);writeln(fio,add,mat,inf,zoc); end;
for j:=1 to n do
for I:=1 to n-1 do
if a[i].mat+a[i].inf j:=0;
for i:=1 to n do
if j<=3 then begin j:=j+1;
if a[i].zoc=1
then writeln(a[i].fio:3,a[i].add:3,a[i].mat+a[i].inf); end;
end.