Валгоритмическом языке команда ветвления записывается следующим образом

Если (условие) то (действие) если значение противоречит этому то  (др  действие) кв (конец ветвления). 

Пусть a,b,c - стороны треугольника (и их длины). условие существование треугольника: пусть а - наибольшая из сторон, тогда против нее будет лежать наибольший угол, который можно определить по теореме косинусов: текст программы приводится ниже. var   a,b,c,t,cosa: real; begin   write('введите длины сторон треугольника: '); readln(a,b,c);   if (a< b+c) and (b< a+c) and (c< a+b) then   begin       if a> b then       begin               if a< c then begin t: =a; a: =c; c: =t end       end       else           if b> c then begin t: =a; a: =b; b: =t end           else begin t: =a; a: =c; c: =t end;       cosa: =(sqr(c)+sqr(b)-sqr(a))/(2*b*c);       if cosa=0 then writeln('треугольник прямоугольный')       else           if cosa< 0 then writeln('треугольник тупоугольный')           else writeln('треугольник остроугольный')   end   else       writeln('треугольник построить нельзя') end. тестовое решение: введите длины сторон треугольника: 4 6.1 3.7 треугольник тупоугольный