вывод названия геометр..фигуры

[romashumkov]

помогите пожаалуйста составить программу, которая по количеству углов выводит название геометрической фигуры

[Stilet]

Ну например она может выглядеть так:

MODULE Фигуры;
IMPORT StdLog,In;

PROCEDURE do*;
VAR n:INTEGER;
BEGIN
 In.Open;
 In.Int(n);
 StdLog.Clear;
 IF n=3 THEN StdLog.String('Треугольник'); END;
 IF n=4 THEN StdLog.String('квадрат, ромб, параллелограмм, прямоугольник');  END;
 IF n=5 THEN StdLog.String('Пентарь');  END;
 IF n=6 THEN StdLog.String('Шестиуголка');  END;
 IF n=7 THEN StdLog.String('Семиугольник');  END;
 IF n=8 THEN StdLog.String('Восьмиугольник');  END;
END do;

END Фигуры.

[romashumkov]

спасибо большоое

[Stilet]

Всегда пожалуйста