program CalculateRectPerimeter;vara, d, perimeter: integer;beginwriteln('Enter the length of side a: ');readln(a);
writeln('Enter the length of side d: ');readln(d);
perimeter := 2 * (a + d);
writeln('The perimeter of the rectangle is: ', perimeter);
end.
program CalculateRectPerimeter;
var
a, d, perimeter: integer;
begin
writeln('Enter the length of side a: ');
readln(a);
writeln('Enter the length of side d: ');
readln(d);
perimeter := 2 * (a + d);
writeln('The perimeter of the rectangle is: ', perimeter);
end.