даны три вещественных числа. можно ли составить из них треугольник. паскаль.

program z3;uses crt;var a,b,c,p:integer; s:real;begin read(a,b,c); if (a<b+c) and (b<c+a) and (c<b+a) then begin p:=a+b+c; s:=sqrt(p*(p-a)*(p-b)*(p-c)); writeln('площадь=',s:5:2); writeln('периметр=',p); end else writeln('треугольник не возможен');end.

uses crt;

var

  a, b, c: integer;

begin

  write ('Введите длины сторон: '); readln (a,b,c);

  if (a < b+c) and (b < a+c) and (c < a+b) then

    writeln ('Треугольник существует.')

  else writeln ('Треугольник не существует.');

end.