Паскаль ! яка маса зливка срібла у вигляді куба з заданою стороною, наприклад 6см, якщо густина срібла 10500кг/м3? решить программу.

Var a,m,p,v:real;
begin
write('a (см) = '); readln(a);
v:=a*a*a/100/100/100; // м3
p:=10500; // кг/м3
m:=p*v; // кг
writeln('m = ',m,' кг');
end.

Пример:
a (см) = 6
m = 2.268 кг