MS

Program vijosP1035;

Var

money:array[1..100] of integer;

name:array[1..100] of string;

n,i,m,j,t,k,outmo:integer;

person,getp:string;

input,output:text;

begin

readln(n);

for i:=1 to n do

begin

readln(name[i]);

money[i]:=0;

end;

t:=1;

while t