сделать такую же программу только с периметром прямоугольника (это среднее арифметическое)

program pryamoygol;

var

   A,B, result:integer;

begin

   readln(A,B);

   result := 2*(A+B);

   writeln('Периметр прямоугольника = ',result);

end.