Сумма сторон треуголника, Ниже Опции

[Hunter_Z]

Привет, форумчане, тут по инф задачу задали. Вот код
#Program triangle;
var a,b,c: real;
begin
writeln('Введите значение сторон треугольника');
read(a,b,c);
writeln('Первая сторона = ', a);
writeln('Вторая сторона = ', b);
writeln('Третья сторона = ', c);
writeln('Если к ',a, ' прибавить ', b, ', то это будет равно ', a+b, '.');
if a+b>c then
writeln('А так как сумма двух сторон треугольника всегда больше третий стороны, а ', a+b, ' > ',c, ' значит треугольник существует!')
else writeln ('А так как сумма двух сторон треугольника всегда больше третий стороны, а ', a+b, ' < ',c, ' значит треугольник не существует!')
end.
По правилу сумма 2 сторон треугольника всегда больше последней.
То есть мне надо по мимо a+b>c в
#if a+b>c then
Вписать a+c>b и b+c>a.
Подскажите как это сделать.
Заранее спасибо!

[Федосеев Павел]

if a+b>c then

замени на

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

Ну и в вывод добавь соответствующие неравенства.