Даны положительных числа a,b,c. Проверить могут ли они быть длинами сторон треугольника, если да, то вычесли его площадь. (составить программу для паскаля)

//Pascal ABC.NET 3.1 сборка 1256Var a,b,c,s,p:real;beginreadln(a,b,c);if (a+b>c) and (b+c>a) and (a+c>b) then begin  p:=(a+b+c)/2;  s:=sqrt(p*(p-a)*(p-b)*(p-c));  writeln('S=',s); end else writeln('Такого треугольника не существует.');end.Пример ввода:343Пример вывода:S=4.47213595499958