номер 45
var a1,d,n,s:real;
begin
write ('a1='); readln (a);
  write ('d='); readln (b);
   write ('n='); readln (c);
    s:=(2*a1+d*(n-1)/2)n;
     writeln ('s=',s:2:2);
      readln;
end.

номер 27
var a,b,c,p,s:real;
begin
   write ('a='); readln (a);
  write ('b='); readln (b);
    c:=sqrt(sqr(a)+sqr(b));
     p:=a+b+c;
      s:=a*b/2;
     writeln ('p=',p:2:2);
      writeln ('s=',s:2:2);
       readln;
end.

номер 46

var a,b,c,f1,f2,f3:real;
begin
   write ('a='); readln (a);
     write ('b='); readln (b);
      write ('c='); readln (c);
        f1:=(((sqr(b)+sqr(c)-sqr(a))/(2*b*c))*pi)/180;
         f2:=(((sqr(a)+sqr(c)-sqr(b))/(2*a*c))*pi)/180;
          f3:=(((sqr(a)+sqr(b)-sqr(c))/(2*a*b))*pi)/180;
           writeln ('f1=',f1;2:2);
             writeln ('f2=',f2:2:2);
              writeln ('f3=',f3:2:2); 
                readln;
  end.