program exam;
Type results=record
Fam: string[15];
rus: 2..5;
alg: 2..5;
phiz: 2..5;
end;
var list: array[1..8] of results;
i: integer; f1, f2 : text;
begin
assign (f1,'IZ_81.txt');
assign (f2,'best.txt');
reset(f1);
rewrite(f2);
readln(f1);
readln(f1);
for i:= 1 to 8 do
readln (f1, list.Fam, list.rus, list.alg, list.phiz);
for i:=1 to 8 do
if (list.rus=5) and (list.alg=5) and (list.phiz=5) then
begin
writeln (list.Fam);
writeln(f2, list.Fam);
end;
close(f1);
close(f2);
end.
