программа на паскале вычесление периметра пятиугольника
Program pyat;
Var a, b, c, d ,f, p : integer;
Begin
writeln ('vvedite dlini storon pyatiugolnika');
readln (a);
readln (b);
readln (c);
readln (d);
readln (f);
p:= a+b+c+d+f;
writeln ('perimetr raven', p);
readln;
End.