Задача 4 урок 13.2

Задача 4 урок 13.2

У вас есть число от 1 до 9, вывести его в представлении как счетах со сдвинутыми костями (всего десять костей на спице)

var m,n,i,j,k,f: integer;
begin
readln(n);
m:=10;
    if n=0 then
    begin
        for j:=1 to 3 do
            write('- ');
        for k:=1 to m do
            write('+ ');
    end
    else if (n>0) then
    begin
        for j:=1 to n do
            write('+ ');
        for i:=1 to 3 do
            write('- ');
        for f:=1 to m-n do
            write('+ ');
    end;
end.