Определите является ли целое число а четным если да возведите его в квадрат если нет то в куб составьте блок схему пож 25

//PascalABC.Net 3.2
begin
var a:=readinteger('Введите a: ');
if a.IsEven then write (sqr(a)) else write (a*a*a);
end.