Úng dụng vẽ tam giác

uses crt;
var h,cot,hang:word;
i,j:word;
Begin
clrscr;
write('Nhap chieu cao tam giac:');
readln(h);
hang:=2;
cot:=30;
for i:=1 to h do
Begin
gotoxy(cot,hang);
for j:=1 to 2*i-1 do write('*');
cot:=cot-1;
hang:=hang+1;
End;
writeln;
Write('Nhan phim bat ky de ket thuc:'); readln;
End.