program p30;
uses Crt;
var
       soucet:array[2..12] of longint;
    hod1,hod2:byte;
  pocet,i,pom:longint;

begin
clrscr;
randomize;
repeat
  write('Kolikrat se bude hazet ? ');read(pocet);
until pocet>0;
for i:=1 to pocet do
begin
  hod1:=random(6)+1;
  hod2:=random(6)+1;
  writeln(i,'. pokus - hozeno ',hod1,' , ',hod2);
  soucet[hod1+hod2]:=soucet[hod1+hod2]+1;
end;
writeln;
for i:=2 to 12 do
  writeln('soucet = ',i,' ... ',soucet[i]*100/pocet:4:2,' %');
repeat until keypressed;
end.