Question

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

Answer 1

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

Как то так