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

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

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