<-HOME  <-FLOWCHART
PROGRAM Number3;
USES crt;
VAR n,l,i,c,num:integer;
BEGIN
    clrscr;
    gotoxy(15,3);
    write('Enter base of Piramid : ');
    readln(num);
    l:=5;
    n:=1;
    for i:=1 to num do
    begin
    c:=15;
        for n:=1 to n do
            begin
            gotoxy(c,l);
            write(i);
            c:=c+1;
            end;
        n:=n+1;
        l:=l+1;
    end;
    gotoxy(15,20);
    write('Program by Miss Orathai Jaiyah 4411063');
END.