Вычислите периметр огорода имеющего форму четырёхугольника со сторонами a,b,c,d.

Pascal.
var A,B,C,D:integer;
begin
writeln('введите стороны A, B, C, D');
readln(A,B,C,D);
writeln('P=',a+b+c+d);
end.