Cоставить блок схему для решения . дано число х. увеличить его на 5 если оно положительно,а в противном случае вывести отрицательное число

Var a.x:integer;
write(введите ваше число);
readln(x)
if(x>0)
then begin
a:=x+5;
writeln('Увеличенное число =',а );
end
else writeln('Число x =',x)
end.