Составить разветвляющийся алгоритм : определить четверть, в которой находится точка

Function v(h,r: real): real; begin result: =1/3*pi*r*r*h // abc, abc.net // v: =1/3*pi*r*r*h // turbo, free end; function spp(h,r: real): real; begin result: =pi*r*(r+sqrt(r*r+h*h)); end; var     h,r,v0,s,sums,sumv: real; begin write('h1 = '); readln(h); write('r1 = '); readln(r); v0: =v(h,r); sumv: =v0; s: =spp(h,r); sums: =s; writeln('v1 = ',v0); writeln('s1 = ',s); writeln; write('h2 = '); readln(h); write('r2 = '); readln(r); v0: =v(h,r); sumv: =sumv+v0; s: =spp(h,r); sums: =sums+s; writeln('v2 = ',v0); writeln('s2 = ',s); writeln; write('h3 = '); readln(h); write('r3 = '); readln(r); v0: =v(h,r); sumv: =sumv+v0; s: =spp(h,r); sums: =sums+s; writeln('v3 = ',v0); writeln('s3 = ',s); writeln; writeln('sum v = ',sumv); writeln('sum s = ',sums); end.

Пусть x, y, z - количество учеников в классах  11а, 11б, 11в соответственно.тогда вероятности выбрать дежурных из этих классов будут: x / (x+y+z); y  / (x+y+z);   z  / (x+y+z);   log(2)[1/(x/(x+y+z))] = 1+log(2)2  ⇒ log(2)[(x+y+z)/x] = log(2)4  ⇒ (x+y+z)/x = 4 log(2)[1/(y/(x+y+z))] = 1+log(2)3  ⇒ log(2)[(x+y+z)/y] = log(2)6  ⇒ (x+y+z)/y = 6 x+y = 10  ⇒ y = 10-x (10+z)/x = 4  ⇒ 4x = 10+z (10+z)/y = 6  ⇒ 6y = 10+z 6y = 4x  ⇒ x = 6y/4 = 3y/2 = 3*(10-x)/2  ⇒ 5x = 30  ⇒ x = 6 4x = 10+z  ⇒ z = 4x-10 = 4*6-10 = 14 ответ: 14