Составить программу на паскале найти периметр 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.