Hra (Zadanie 18)

Program zadanie17; Uses CRT; Var hod1,hod2,s1,s2,i:integer; Begin Randomize; ClrScr; for i:=1 to 1000 do begin hod1:=Random(6)+1; hod2:=Random(6)+1; if hod1+hod2=7 then inc(s1); if hod1+hod2=8 then inc(s2); end; WriteLn('Sucet 7 padol ',s1,' krat.'); WriteLn('Sucet 8 padol ',s2,' krat.'); ReadLn; End.