Program Exer1;
Var i,j:integer;
Begin
i:=-7; j:=3;
j:=3-i*j;
i:=j div -i;
if i=3 then 
case i of
1..4:writeln(i*i);
1..1000:writeln(i*i*i);
else 
if i=3 then writeln(i)
end
Else if i=3 then writeln(i*i*i*i)
Else writeln(i*i+1);
End.