Сделайте программу для измерения периметра любой фигуры. Сначала надо вести количество сторон а потом сложить стороны. 1OO

ответ:
program p;
var p,a,i,n:integer;
begin
p:=0;
write('Введите количество сторон фигуры: ');
readln(n);
for i:=1 to n do
begin
write(i:2,' сторона = ');
readln(a);
p:=p+a
end;
writeln('Периметр фигуры: P = ', p)
end.

Объяснение:
вводим количество сторон в фигуре
затем в цикле вводим все стороны и подсчитываем периметр (накоплением)
выводим результат