Program abc;
var a:integer;
begin
Write('Введите число:');readln(a);
if (a mod 2 = 0) then a:=a*(sqr(a)) else a:=sqr(a);
Writeln(a);
end.
