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

Question

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

Answer 1

USES crt; 
VAR a,b,n1,n2,i:integer;
begin
n1:=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. 

Comments

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