var
 i:integer;
 k,m:real;
a,b,c,d,e:array[1..10]  of real;
p:string;
begin

write('k=');read(k);

 for i:=1 to 10 do begin
a[i]:=random(10);
b[i]:=random(10);
c[i]:=random(10);
d[i]:=random(10);
e[i]:=random(10);
m:=a[i]+b[i]+c[i]+d[i]+e[i];
if m>=k then p:='master' else p:='';
writeln(i, '   ',a[i],'  ',b[i],'  ',c[i],'  ',d[i],'  ',e[i],'   ',m,'   ',p);
end;
end.