Программа на паскале вычесление периметра пятиугольника

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.