Написать программу и блок-схему к : дано число. если оно отрицательное, тогда возвести число в квадрат. а если нет - возвести в третью степень.

var  N: integer; begin  Readln(N);  if N < 0 then    N := N * N  else    N := N * N * N;  Writeln(N); end.