С клавиатуры вводится сторона правильного пятиугольника. Написать программу, которая подсчитывает его периметр. Решение:
Var a,b,c,d,e,y:integer; begin write('Введите длины всех сторон пятиугольника, см : '); readln(a,b,c,d,e); y:=a+b+c+d+e; writeln('Периметр данного пятиугольника, см = ',y); readln; end.
спасибо