Question

Домашнее задание написать программу (в тетради) "Найти периметр пятиугольника, если длины его сторон а, b.c. d.f - вводятся с клавиатуры (через read)

Answer 1

Var p,a,b,c,d,f:integer;

Begin

read(a,b,c,d,f);

p:= a + b + c + d + f;

writeln(p);

End.