Question

Решите в паскале пожалуйста СРОЧНО!!!

Answer 1

Program name;
var F,x:integer;
begin
readln(x);
F:=x;
if x > 0 then
writeln(F)
else if x = 0 then
writeln('3')
else if x < 0 then
writeln(F*F*F);
end.

Насчёт power не уверен