Вычислить площадь,объём куба по Паскалю

Question

Вычислить площадь,объём куба по Паскалю

Answer 1

A-длина ребра

Var  a: Word;
begin    
Write('a=');
ReadLn(a);    
WriteLn('v=', a * a * a);    
WriteLn('s=', 6 * Sqr(a));
end.