Выполнить в Паскале.  Дана длина ребра куба. Найти S грани, площадь полной поверхности и V этого куба

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