Составьте программу: возведение чётного числа в квадрат, а нечётного - в куб

program n;var       x: integer;beginwriteln('Введите число');readln(x);if x mod 2=0 then writeln(x*x) else writeln(x*x*x);end.