Написать программу для гахождения перимитра равностороннего треугольника

В России пользователи чаще всего называют символ @ собакой, из-за чего
адреса электронной почты, образованные от личных имен и фамилий,
приобретают иной раз слегка обидное звучание. Справедливости ради надо
отметить, что в России этот знак называют также собачкой, лягушкой,
плюшкой, ухом, бараном и даже крякозяброй. Пользователям Интернета в
других странах нравятся самые разные
названия для знака @. В Японии – «значок а» , в Болгарии – «а
обезьянье» , в Голландии – «обезьяний хвост» , в Финляндии – «кошкин
хвост» , во Франции – «улиточка» , в Венгрии – «гусеничка» , «червячок» ,
«поросячий хвостик» , в Израиле – «штрудель» , в Китае – «мышонок» , в
Норвегии – «канельболле» (спирально закрученная булочка с корицей, то
есть плюшка) . В Германии знак дословно называют «обезьяна с цепким
хвостом» , но немецкое слово Klammeraffe имеет также второе, переносное,
значение: так называют пассажира на мотоцикле, сгорбившегося на втором
сиденье за спиной водителя. В Швеции и Дании символ @ сравнивают с
хоботом слона, а в Испании – со спиралеобразной конфетой, популярной на
острове Майорка. Даже на международном языке эсперанто символ
электронной почты получил свое название: «улитка».

program massiv;

var b:array[1..100]of integer;

r,n,m,i,p,k,a:integer;

begin

randomize;writeln ('a=');readln(a);

writeln('n=');readln(n);

for i:=1 to n do begin

b[i]:=random(50)-25;

writeln('a[',i,']=');

if b[i]>0 then begin r:=r+b[i];p:=r*2;

if b[i]>a then k:=k+1;

if ((b[i]<a)and(b[i]>0)) then m:=m+1;

end;end;writeln('удвоенная сумма положительных элементов ',p);

writeln('kол-во элементов массива , значения которых больше заданного числа',k);

writeln('количество положительных элементов не превсходящих заданного числа',m);

end.