Пусть, например -1 будет конец ввода, тогда процедура будет иметь вид
Процедура Треугольник()
Ном=0;
Пока Ном<>-1 Цикл
Ввод(Ном,Парм);
Если (Ном<1) или (Ном>5) Тогда
Сообщить("Ошибка ввода ");
Продолжить;
КонецЕсли;
Если Парм<=0 Тогда</p>
Сообщить("Ошибка параметра "+Парм);
КонецЕсли;
Если Ном=1 Тогда
ПоСтороне(Парм);
ИначеЕсли Ном=2 Тогда
ПоПлощади(Парм);
ИначеЕсли Ном=3 Тогда
ПоВысоте(Парм);
ИначеЕсли Ном=4 Тогда
ПоРадиусуМ(Парм);
ИначеЕсли Ном=5 Тогда
ПоРадиусуБ(Парм);
Иначе
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Осталось написать соответствующие функции, они примитивные, из 1-3 строчек и перевести на известный тебе язык программирования.
В Паскале оператор выбора, например, выглядит по-моему, так
do Case
Case=
Case=
EndCase;