Выполнить в паскале. дана длина ребра куба. найти s грани, площадь полной поверхности и v этого куба

Program Program1;
var S1, S2, V, a: real;
begin
write('Введите длину ребра куба: ');
read(a);
S1 := a * a;
S2 := (a * a) * 6;
V := a * a * a;
writeln('Площадь одной грани куба (S) = ', S1);
writeln('Площадь полной поверхности куба = ', S2);
writeln('Объем куба (V) = ', V);
end.