Дано целое число. Возвести его в квадрат, если оно неотрицательно и в четвертую степень, если
отрицательно. Разработать блок-схему для решения этой задачи

//PascalABC.NET//Версия 3.3, сборка 1634 (14.02.2018)begin  var a:=ReadInteger;   Println(a>0?a*a:a*a*a*a);end.