Вводится число, если оно больше "0", выдать сообщение- число положительное, если оно меньше "0", то число отрицательное. По этому составить программу и блок схему. Пожалуйста. Все последние пнк отдаю

Program1; Uses crt;
var a: integer;
begin clrscr;
Writeln('введите число");
Readln(a);
if a>0 then Writeln('a-положительное');
if a<0 then Writeln('a-отрицательное');
if a=0 then Writeln('a=0');
Readln;
End.

Только я вот не понял, зачем фотка прикреплена к вопросу?..