Дано число не равное нулю, если оно четное возвести в квадрат если нет - в четвертую степень. На языке паскаль решить, желательно с блок-схемой. Помогите!

ну помогите кто-нибудь уже)

Пипец это как-то странная

задача

Без блок схемы

...

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017// Внимание! Если программа не работает, обновите версию!begin  var n:=ReadInteger('n=');  n:=n.IsEven?n*n:Sqr(n*n);  Writeln('Результат ',n)end.Примерыn= 8Результат 64n= 7Результат 2401