Question

Напишите задачу в паскаль найти объем куба

Answer 1

Var
a, v : integer;
begin
write('Введите длину ребра:');
readln(a);
v := a * a * a;
writeln;
writeln('Объем = ', v);
end.