Дано число не равное нулю, если оно четное возвести в квадрат

помогите, без блок схемы пожалуйста

// 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
Итог 64

n= 7
Итог 2401

Program m; // начало проги с заглавием m var // задаем переменные a:integer; // переменная а begin // начало самого кода write('input a'); // выводим на экран надпись input a read(a); // записываем в а число, введенное с клавиатуры if agt;0 then a:=a*a else a:=a*a*a; // если аgt;0, тогда записываем в "а" - "а квадрат", по другому "а куб" writeln(a); // выводим на экран а end. // завершение

Пробуй это, надеюсь поможет.