А. Начать исполнение.
1. Присвоить переменной Loop значение "истина".
2. Пока Loop имеет значение "истина", повторять:
А. Вывести на экран меню: "1 – Расчет площади прямоугольника
2 – Расчет площади треугольника
3 – Расчет площади круга".
Б. Вывести сообщение "Выберите пункт меню".
В. Ввести n.
Г. Исследовать n:
1. Если n=1, то:
А. Повторять:
1. Вывести сообщение "Введите стороны прямоугольника".
2. Ввести a,b.
3. Если a≤0, или b≤0,
А. то вывести сообщение "Некорректный ввод".
Б. иначе вывести "Площадь прямоугольника равна ", ab.
4. Вывести сообщение "Продолжить вычисления (Y/N) ?".
5. Ввести символ ot.
Б. Конец цикла при условии ot='N'.
2. Если n=2, то:
А. Повторять:
1. Вывести сообщение "Введите стороны треугольника".
2. Ввести a,b,c.
3. Если a≤0, или b≤0, или с≤0,
А. то вывести "Некорректный ввод".
Б. иначе:
1. Если a+b≤c, или a+c≤b, или b+c≤a,
А. то вывести "Некорректный ввод".
Б. иначе:
1. Рассчитать полупериметр .
2. Вывести "Площадь треугольника равна ", .
4. Вывести сообщение "Продолжить вычисления (Y/N) ?".
5. Ввести символ ot.
Б. Конец цикла при условии ot='N'.
3. Если n=3, то:
А. Повторять:
1. Вывести сообщение "Введите радиус круга".
2. Ввести r.
3. Если r≤0,
А. то вывести сообщение "Некорректный ввод".
Б. иначе вывести "Площадь круга равна ", πr2.
4. Вывести сообщение "Продолжить вычисления (Y/N) ?".
5. Ввести символ ot.
Б. Конец цикла при условии ot='N'.
4. Если n=4, то присвоить переменной Loop значение "ложь".
3. Конец цикла.
Б. Закончить исполнение.