Объяснение:
program ex1;
var h,a,b:integer; v:real;
begin
writeln(выч обЪема);
writeln(a);
readln(a);
writeln(b);
readln(b);
weriteln(h);
readln(h);
v:=a*b*h;
writeln('v=',v:5:2)
end.
Объяснение:
program ex1;
var h,a,b:integer; v:real;
begin
writeln(выч обЪема);
writeln(a);
readln(a);
writeln(b);
readln(b);
weriteln(h);
readln(h);
v:=a*b*h;
writeln('v=',v:5:2)
end.