Ответ:

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.