program zad1;
uses crt;
var
    x1,x2,x3,grua,ua,s,x,p,a,b,c:real;
begin
  clrscr;
  write ('p=');
  read (p);
  write ('a=');
  read (a);
  write ('b=');
  read (b);
  write ('c=');
  read (c);
  if p=1 then
  begin
  x:=a+b+c;
  writeln('Периметр= ',x);
  end
  else
  if p=2 then
  begin
  p:=(a+b+c)/2;
  s:=sqrt(p*(p-a)*(p-b)*(p-c));
  writeln('Площадь= ',s)
  end
  else
  if p=3 then
  begin
  x1:=((sqr(b)+sqr(c)-sqr(a))/2*b*c);
  ua:=arctan(sqrt(1-sqr(x1)/x1));
  grua:=((180/pi)*ua);
  writeln('Угол А= ',ua,' (в радианах)');
  writeln('Угол А= ',grua,' (в градусах)');
  end
  else writeln('Треугольник');
 repeat until keypressed;
end.