Пусть, например -1 будет конец ввода, тогда процедура будет иметь вид 

Процедура Треугольник()

   Ном=0;

   Пока Ном<>-1 Цикл

       Ввод(Ном,Парм);

       Если (Ном<1) или (Ном>5) Тогда

            Сообщить("Ошибка ввода ");

            Продолжить;

        КонецЕсли;

        Если Парм<=0 Тогда

             Сообщить("Ошибка параметра "+Парм);

        КонецЕсли;

         Если Ном=1 Тогда

               ПоСтороне(Парм);

         ИначеЕсли Ном=2 Тогда

               ПоПлощади(Парм);

         ИначеЕсли Ном=3 Тогда

               ПоВысоте(Парм);

         ИначеЕсли Ном=4 Тогда

               ПоРадиусуМ(Парм);

         ИначеЕсли Ном=5 Тогда

               ПоРадиусуБ(Парм);

          Иначе

          КонецЕсли;

  КонецЦикла;

КонецПроцедуры

Осталось написать соответствующие функции, они примитивные, из 1-3 строчек и перевести на известный тебе язык программирования.

В Паскале оператор выбора, например, выглядит по-моему, так

do Case

   Case=

   Case=

EndCase;