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

программа принимает на вход сторону правильного пятиугольника и вывод его периметр

var
    a: real;

begin
    readln(a);
    writeln('P=', 5 * a);
end.