"составить алгоритм для нахождения медианы равностороннего треугольника, если известна его сторона" заранее !

Var   a, med : real; begin   readln(a);   med: = sqrt(sqr(a) - sqr(a/2));   writeln(med); end.

1.  прикладное по общего назначения   - совокупность программ для решения общих универсальных . эти программы используются большинством пользователей компьютера. прикладное по специального (профессионального) назначения   - совокупность программ для решения более узких и профессиональных различных предметных областей (архитектуры, строительства, музыкальной и киноиндустрии), т.е. обычным пользователям по специального назначения не нужны, они не будут пользоваться  сапр, 1с, субд и т.п.а на 2 вопрос, к сожалению, ответа я не знаю

№1 r = 187,5 a = 9 d = 63 №2 var a,b,c,d,e,f: real; begin writeln ('введите оценки полученные в 5 опросах: '); readln (a,b,c,d,e); f: =(a+b+c+d+e)/5; writeln ('средняя оценка =  ',f); end.№3var dengi,a,b,c,d,ostatok: real; beginwriteln ('сколько у вас денег? '); readln (dengi); writeln ('введите стоимость перчаток: '); readln (a); writeln ('введите стоимость портфеля: '); readln (b); writeln ('введите стоимость галстука: '); readln (d); ostatok: =dengi-a-b-d; if ostatok < 0 thenwriteln ('вам не хватит денег на данную покупку, для совершения этой покупки вам нужно ещё ', abs(ostatok), ' рублей')elsewriteln ('у вас останется  ',ostatok,' рублей'); end.