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

var l,v,s,s1:real;
begin
  write('l = ');readln(l);
  s1:=l*l;
  s:= 6*l*l;
  v:=l*l*l;
  write('S1 = ',s1:0:4,', S = ',:0:4,', V = ',v:0:4);
  readln
end.