program tar7;
var
countB,countM,countH:integer; s,team:char;
begin
countM:=0;
countH:=0;
countB:=0;
writeln('enter the letter that your basketball team start with');
readln(team);
while team <> S do
begin
case team of
m: countM+1;
b: countB+1;
h: countH+1;
writeln('enter the letter that your basketball team start with,type S to stop');
readln(team);
end;
writeln(m ,' support maccabi');
writeln(b , 'support beitar');
writeln(h, 'shupport hapoel');
end.