Var
x,y:integer;
Begin
readln(x);
if x=10
then
y := 5
else if x > 10
y := sqr(x)+2
else
y := sqr(x);
write(x + ' ' + y);
End.
program Task;