Verified answer

var

 x: Integer;

begin

   Write ('Введите целое число: ');

   Readln (x);

   if x mod 2 = 0 then

     WriteLn ('Четное число в квадрате = ' + IntToStr (x * x))

   else

     WriteLn ('Нечетное число в кубе = ' + IntToStr (x * x * x));

end;