Дана последовательность n — натуральных чисел. Если элемент массива четный, то его нужно возвести в квадрат. Если нечетный то в куб. Вывести полученную последовательность.- Pascal(Паскаль)

Var
  a: array [1 .. 50] of integer;
  x, y, i, n: integer;

Begin
  Writeln('VVedite dannie:');
  readln(n);
  for i := 1 to n do
    readln(a[i]);
  for i := 1 to n do
  begin
    if a[i] mod 2 = 0 then
      a[i] := sqr(a[i])
    else
      a[i] := sqr(a[i]) * a[i];
  end;
  For i := 1 to n do
    Writeln(a[i]);
  readln

end.