var  x:real;
begin
writeln ('Ââåäèòå x');
readln (x);
writeln ('Îòâåòû:');
writeln (power(x,-1):0:1);
writeln (power(x,4):0:1);
writeln (power(x,-2):0:1);
writeln (power(x,5):0:1);
writeln (power(x,100):0:1);
writeln (power(x,2):0:1);
end.