Составить простую программу в Паскаль 1.Дано число, если оно четное то возвести в

1.if (a mod 2)=o then write(a*a) else write(a*a*a);