#dolna granica
xmin=0.5
#górna granica
xmax=2

# wykreslenie krzywej rozkladu
curve(dnorm(x,0,1),xlim=c(-3,3),main='Rozklad Normalny') #tutaj mozna oczywiscie poeksperymentowac z innymi rozkladami, ale trzeba uwazac na parametry funkcji (trzeba je sprawdzic w pomocy)

# koordynaty x do wykreslenia zacienionego obszaru
cord.x <- c(xmin,seq(xmin,xmax,0.01),xmax)

# koordynaty y do wyklreslenia obszaru (trzeba uwazac, rozmiar x musi byc równy rozmiarowi y)
cord.y <- c(0,dnorm(seq(xmin,xmax,0.01)),0)

# wykreslenie poligonu, kolory z przezroczystoscia regulowana ostatnim parametrem w funkcji rgb
polygon(cord.x,cord.y,col=rgb(0,1,0,0.5))

#obliczenie pola powierzchni zacienionego obszaru
pnorm(xmax, 0, 1)-pnorm(xmin, 0, 1)