Напишите программ определения диагоналей в многоугольнике. для определения кол-ва диагоналей воспользуйтесь формулой к=n*(n-3)/2, где: n- число сторон многоугольника; к- число диагоналей.

Var n,K:real;  ///Объявленные переменные
begin    ///старт цикла
read(n);   ///ввод переменной n
K:=n*(n-3)/2; 
writeln('Кол-во диагоналей = ',K); ///вывод ответа
end.

Написано на Паскале ABC.