Составить программу для решения задачи

Question

Составить программу для решения задачи

---

Answer 1

Можно короче
Program School
var a, S: real;
begin
reagln (a);
if a > 5 then S := a*a*a else S := a*a;
writeln (S);
end.