program kocka;
uses Crt;
var p : array[1..6] of integer;
  i,c : integer;
begin
  Clrscr;
  Randomize;
  for i:=1 to 6 do p[i]:=0;
  for i:=1 to 100 do begin
    c:=random(6)+1;
    p[c]:=p[c]+1;
    end;
  for i:=1 to 6 do
    writeln('vase cislo ',i,' padlo ',p[i],'-krat');
  readln;
end.
