Как решить задачки..Паскаль

Для начала нужно решить задачу без программирования.
Т. е. вывести некоторые формулы а потом писать:
В правильной треугольной призме в основании лежит правильный треугольник.
У правильных треугольников все стороны равны, а периметр есть сумма всех сторон
треугольника. Т. е. a=P/3, где а-сторона правильного треугольника (и одновременно основания призмы) .
По формуле Герона площадь S=корень (p(p-a)(p-a)(p-a))=корень (p*3(p-a))=корень (3p^2-3pa),
где p-полупериметр. Т. е. p=P/2 (периметр пополам) . Подставляем в формулу площади и выводим:
S=корень (3(P/2)^2)-3(P/2)(P/3)=корень (3(P^2)/4-(P^2)/2)=корень ((P^2)/4). Формула для объема: V=S*H .
В Pascal возводить в степень следует используя свойство натурального логарифма: P^2=Exp(2*Ln(Abs(P)))
Сама программа:
var
P,H,S,V:real;{summa vsex procentov po planu}
begin
{Sdes idet vvod dannih}
writeln('Vvedite Perimetr(P) osnovaniya pravilnoi treugolnoi prizmi i nazhmite Enter: ');
readln(P);
writeln('Vvedite visotu(H) pravilnoi treugolnoi prizmi i nazhmite Enter');
readln(H);
{Ras4et po formulam}
S:=Sqrt(Exp(2*ln(Abs(P)))/4);
V:=S*H;
{Vivod rezultatov}
writeln('S=',S,' V=',V);
readln;
end.

надо сесть, открыть учебник и сделать.
Здесь в первой задаче одна строчка кода.
Во второй - один цикл, т. е примерно 5-6 строк кода.

Судя по всему, требуется вычислить объём площади шары правильной треугольной призмы, которая нарисована на однодолларовой купюре американских гривен. Значит так. Бежишь (дабы мозг насытился кислородом и кровообращение настроило его на рабочий лад) в круглосуточный обменник и покупаешь там один доллар (бумажный - ВАЖНО!!!, благо в солице это не проблема) . Приходишь домой ложишь его перед собой, внимательно рассматриваешь рисунок к твоей задаче, открываешь учебник и.. . Если тебя это не вдохновит на решение столь лёгкой задачки, то будешь ты получать зарплату, в будущем, только в гривнах с портретом януковича. ))) Целую. Твой целофановый свёкр.

V:=a/3*sqrt(3)/4*H
S:=P*H
оставшуюся мутотень допиши сама

последний вопрос.
const
n=10;
A:array[1..n] of integer=(4,87,89,4,3,5,7,8,42,5);
var
i,j:integer;
begin
m:=A[1];-выбираешь определенное число (1,2,3,4,5,6,7);
for i:=1 to n do if m<a<i> then write(A);
end.

в прошлый раз, сайт мой ответ полностью не выдал.

Асиф Марданов - полный урод, в который раз пишу!!!