Откройте контекстное меню объекта громкость в области извещений панели . определите сколько и какие команды содержит это меню?

Program prog; uses crt; var a,b,t: real; begin clrscr; write('a = '); readln(a); write('b = '); readln(b); if (a> b) then     begin     t: =a;     a: =2*a*b;     b: =(t+b)/2;     end; if (a< b) then     begin     t: =b;     b: =2*a*b;     a: =(t+a)/2;     end; if(a=b) then               writeln('числа равны')               else               writeln('a = ', a, ', b = ', b); end.

Program prog; uses crt; var a,b,t: real; begin clrscr; write('a = '); readln(a); write('b = '); readln(b); if (a> b) then     begin     t: =a;     a: =2*a*b;     b: =(t+b)/2;     end; if (a< b) then     begin     t: =b;     b: =2*a*b;     a: =(t+a)/2;     end; if(a=b) then               writeln('числа равны')               else               writeln('a = ', a, ', b = ', b); end.