Напишите программу которая считает периметр пятиугольника

{Периметр правильного пятиугольника равен сумме 5 его сторон}
var a:integer;
begin
writeln ('vvedi storonu pravilnogo 5ti ugolnika');
readln (a);
writeln ('P= ',a*5);
readln;
end.