program CalculateRectPerimetervaa, d, perimeter: integerbegiwriteln('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
va
a, d, perimeter: integer
begi
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.