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