Numeros em triangulo (v. 1.0.0)

{ paulogp }
{ mac os 7 }
program Ada06p;

uses
    MemTypes, QuickDraw, OSIntf;

var
    n, i, j: integer;
    fim: string;

begin
    repeat
        clearscreen;
        writeln('Programa: Colocação de número em triângulo.');
        writeln;
        write('Introduza o valor de N: ');
        readln(n);
        j:= 0;
        writeln;
        for i:= 1 to n do
        begin
            for j:= 1 to i do write('*');
            writeln;
        end;
        writeln;
        writeln;
        write('Repetir programa (S/N): ');
        readln(fim);
        uprstring(fim, true);
    until fim = 'N';
end.