program two;
var N: real;
begin
repeat
readln(N);
if (N>0) and (N<10) then
N:=N*N
else writeln('vv dr chislo');
writeln('N=',N);
until (N>0) and (N<10);
end.