program parallelepiped_volume_and_area;
varA, B, H, V, S: integer;
beginwriteln('Enter the length of the parallelepiped:');readln(A);
writeln('Enter the width of the parallelepiped:');readln(B);
writeln('Enter the height of the parallelepiped:');readln(H);
V := A B H;S := 2 (A B + B H + A H);
writeln('The volume of the parallelepiped is: ', V);writeln('The lateral surface area of the parallelepiped is: ', S);
end.
program parallelepiped_volume_and_area;
var
A, B, H, V, S: integer;
begin
writeln('Enter the length of the parallelepiped:');
readln(A);
writeln('Enter the width of the parallelepiped:');
readln(B);
writeln('Enter the height of the parallelepiped:');
readln(H);
V := A B H;
S := 2 (A B + B H + A H);
writeln('The volume of the parallelepiped is: ', V);
writeln('The lateral surface area of the parallelepiped is: ', S);
end.