Задано некоторое целое число N. Выведите на экран название геометрической фигуры (объекта), имеющей N вершин.

{Задано некоторое целое число N. Выведите на экран название геометрической фигуры (объекта), имеющей N вершин.}

program z1;

var n:integer;

begin

Writeln ('Введите количество вершин:') ;

read (n) ;

if n=3 then

writeln ('Треугольник.') ;

if n=4 then writeln ('Квадрат.') ;

if n>=5 then

writeln (n,'-угольник.') ;

end.