составить программу на паскале найти периметр 5 угольника

программа принимает на вход сторону правильного пятиугольника и вывод его периметрvar    a: real;begin    readln(a);    writeln('P=', 5 * a);end.