Как вывести символы в такой последовательности в паскале, используя циклы?
*ooooo
**oooo
***ooo
****oo
*****o

Я так могу и сам, я забыл уточнить, что нельзя использовать DOWNTO в цикле FOR

USES crt; VAR a,b,n1,n2,i:integer; beginn1:=1; n2:=5;FOR i:=1 to 5 do    begin    FOR a:=1 to n1 do WRITE ('*');    FOR b:=n2 downto 1 do WRITE ('o');    WRITELN;    n1:=n1+1;      n2:=n2-1;    end; END.