Вот ответ держи всё верно ) :
1)
program z1;
uses crt;
var n,i,s:integer;
begin
writeln('введите n');
readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln(s);
end.
Так собственно формула же есть расчёта площади треугольника через две стороны и синус угла между ними:
S=1/2*ab*sinJ
a и b - стороны треугольника
J - угол между ними
↓∞Незнаю㏒㏒㏒㏒㏒∦∦㏒ аоіавілдфвлдіволдіфволдфіволдіфволдіфволдіфволдіфволдфівоілдфовліволіволіволіволіовлівооримсчіввввв