Записать на языке паскаль 1. длина ребра куба вводится с клавиатуры. вывести на экран площадь грани, площадь полной поверхности куба, объем куба

Program n1;
var r: real;
begin
writeln('введите ребро куба');
readln(r);
writeln('S грани =',sqr(r));
writeln('S полной поверхности =',sqr(r)*6);
writeln('V куба =',r*r*r);
end.