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

//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

begin
  var a:=ReadInteger; 
  Println(a>0?a*a:a*a*a*a);
end.