var
a: real;
begin
Write('Укажите длину ребра куба: ');
Readln(a);
Writeln('Объем куба равен ', a * a * a)
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
a: real;
begin
Write('Укажите длину ребра куба: ');
Readln(a);
Writeln('Объем куба равен ', a * a * a)
end.