Question

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

Answer 1

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

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