prv=0;
vtor=0;
treti=0;
cetvrti=0;
n=1;
while n<=10
    x=round(10000*rand);
    if x < 30
        prv=prv+1;
    elseif x>=30 && x < 70
            vtor=vtor+1;
    elseif x>=70 && x < 90
                treti=treti+1;
            else
                cetvrti=cetvrti+1;
            end
            n=n+1;
        end

        prvp=prv/n*100;
       vtorp=vtor/n*100;
       tretp=treti/n*100;
       cetvrtip=cetvrti/n*100;

       disp('prv='); disp(prvp);
       disp('vtor='); disp(vtorp);
       disp('tret='); disp(tretp);
       disp('  cetvrti= '); disp(cetvrtip);