Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объем этого куба — Pascal(Паскаль)

uses crt;
var 
    r:real;
    
function SqGran(r:real):real;
begin
    SqGran:=r*r;
end;
 
function SqPolnoe(r:real):real;
begin
    SqPolnoe:=r*r*6;
end;
 
function Volume(r:real):real;
begin
    Volume:=r*r*r;
end;
 
begin
    clrscr;
    writeln('Введите длину ребра');
    readln(r);
    writeln('Площадь грани = ',SqGran(r):4:2);
    writeln('Площадь полной поверхности = ',SqPolnoe(r):4:2);
    writeln('Объем = ',Volume(r):4:2);
    readln
end.