program MassOfBrick;
varP, V, m: integer;
beginP := 1400;V := 25 12 6.5;
m := V * P;
writeln('The mass of the brick is: ', m, ' kg');
end.
program MassOfBrick;
var
P, V, m: integer;
begin
P := 1400;
V := 25 12 6.5;
m := V * P;
writeln('The mass of the brick is: ', m, ' kg');
end.