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

program zzz1;

var aa, bb, cc, S, p, vv: real; // задаем переменные вещественного типа

begin

writeln( Первая сторона треугольника );

readln (aa);
writeln( Вторая сторона треугольника );

readln (bb);

writeln( 3-я сторону треугольника );

readln (cc);

vv:=(aa + bb + cc)/2; // вычисляем полу периметр треугольника

if (aa + bbgt;cc) or (aa + ccgt;bb) or (cc + bbgt;aa) // проверяем условие на существование треугольника, если правильно, то находим площадь

then begin s:=sqrt(vv * (vv - aa) * (vv - bb) * (vv - cc));
writeln ( приобретенная площадь = ,s:5:2); end

else writeln( не существует треугольник с такими гранями );

end.