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