Exercicio 04 Prova 03 - TP

04 - Criar um programa onde o o usuario informe o caracter a ser mostrado e a
quantidade de linhas, para formar a seguinte figura que deve ser centralizada
na tela:

 
                                        *
                                       ***
                                      *****
                                     *******
                                    *********
                                   ***********
                                  *************

Fonte:

program prva03ex04;
uses crt;
procedure arvore(car:string;qtlin:integer);
var col,lin:integer;
copcar:string;
begin
clrscr;
copcar:=(copy(car,1,1));
copcar:=copcar+copcar;
col:=40;
lin:=1;
for lin:=1 to qtlin do
begin
gotoxy(col,lin);
write(car);
car:=car+copcar;
col:=col-1;
delay(100);
end;
end;
var car:string;
qtlin:integer;
begin
clrscr;
write('Digite o Caracter que deseja utilizar......: ');
readln(car);
write('quantidade de linhas (max 25/min 1)........: ');
readln(qtlin);
arvore(car,qtlin);
readln;
end.