var a: integer;
begin
readln(a);
if a mod 2=0 then writeln (a/2)
else writeln (sqr(a));
end.
Программа представлена на языке Pascal.
