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

var a1, a2, a3, a4, a5, P : integer; beginwriteln ('Введите все стороны данного пятиугольника.'); read (a1); read (a2); read (a3); read (a4); read (a5); P : = a1 + a2 + a3 + a4 + a5; writeln ('Периметр пятиугольника равен ', P, '.'); end.

Вариант для правильного пятиугольника:

var a, P : integer; beginwriteln ('Введите сторону данного пятиугольника.'); read (a); P : = a * 5; writeln ('Периметр равен ', P, '.'); end.