Задано некоторое целое число 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.