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.