Составить программу, которая решает нахождения площади и периметра куба со стороной а. как можно !

program ps;
var a,p,s: real;
begin
read(a);
P :=4*a;
S :=a*a;
write('Периметр равен ',P,'cм Площадь равна ',S,' см в квадрате ');
end.

Как то так