Дана длина ребра куба. найти объём куба v и площадь его поверхности s. написать программу по информатике

Program kub;
uses crt;
var
a, V, s: real;
begin
Write('Введите длину ребра: ');
readln(a);
V:=a*a*a;
S:=a*a;
Writeln('V=',V);
Writeln('S=',S);
readkey;
end.