uses crt; var x,t,s:integer; begin clrscr; for x:=1 to 6 do begin write('tahminlerinizi giriniz:');readln(tah); t:=random(41); if t=tah then s:=s+1; end; write('tutturduğunuz tahmin sayısı:',s); readln; end.