С клавиатуры вводится сторона правильного пятиугольника. Написать программу, которая подсчитывает его периметр.
Решение:

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.

спасибо