Определить периметр и площадь треугольника. Задать длины сторон самостоятельно.

Program n1;  var a,b,c,s,p:real;  begin  readln(a);  readln(b);  readln(c);  if (a+b>c) and (a+c>b) and (b+c>a) then  begin  p:=a+b+c;  s:=sqrt(p*(p-a)*(p-b)*(p-c));  writeln('периметр=',p);  writeln('площадь=',s);  end else  writeln('треугольник не существует');  end.