Для вычисления периметра прямоугольника необходимо сложить длины всех его сторон: P = a + b + a + b = 2×a + 2×b = 2×(a + b)
program RectanglePerimeter;
var sideA, sideB, perimeter: integer;
begin
write('Длина: ');
readln(sideA);
write('Ширина: ');
readln(sideB);
perimeter := (sideA + sideB) * 2;
writeln('Периметр прямоугольника: ', perimeter);
readln;
end.