read i for((j=i-2;--i;));{ printf %$j"s*$a " "$a" a+=\* } printf "%$[j+3]"s COBOL