program random1;
var c0,c1,i:integer;
begin
randomize;
c0:=0;
c1:=0;
for i:=1 to 100 do
if trunc(random*2) = 0 then
c0 := c0 + 1
else
c1 := c1 + 1;
writeln('Head : ',c1);
writeln('Tail : ',c0)
end.