Разработать блок-схему алгоритма и написать программу для следующей : ввести число. если оно положительное, то на экран вывести сообщение "положительное число"

Program T;
Var Х : Integer;
Begin      
       Write ('Введите число');    
   ReadLn (Х);      
       If Х > 0    
    Then  
  WriteLn ('Положительное число')        
                            Else  
   WriteLn ('Отрицательное число') ;
End.