Дана длина ребра куба. Найти объём куба 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.