Выполнить в Паскале.  Дана длина ребра куба. Найти 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.