Нарисовать равнобедренный треугольник

uses crt;
Var
  i, j, g, m, n, s, t, k: Integer;
Begin
  clrscr;
  Write('Введите n: ');
  ReadLn(n);
  s := 0;
  t := n;
  k := 0;
  For i := 1 To n Do
    Begin
      inc(k);
      WriteLn;
      inc(s);
      for m := 1 to t do
        begin
          Write(' ');
        end;
      dec(t);
      if (k < 3) then
        begin
          For j := 1 to k Do
            Begin
              Write('* ');
            End;
        end;
      if (k >= 3) and (k<n) then
        begin
          write('* ');
          For g := 1 to k-2 do
            begin
              write('  ');
            end;
          write('*');
        end;
      if (k = n) then
        begin
          for g := 1 to n do
            begin
              write('* ');
            end;
        end;
    End;
  ReadLn;
End.

uses crt;
var n,i,j:integer;
begin
clrscr;
write('n=');readln(n);
for i:=1 to n do
 begin
  for j:=1 to 2*n-1 do
   begin
    if odd(n)and(j>=(n-i+1))and(j<=(n+i-1)) and not (odd(i+j))
    then write('*')
    else if not odd(n)and(j>=(n-i+1))and(j<=(n+i-1)) and (odd(i+j))
    then write('*')
    else if (i=n)and(odd(j))and(odd(i+j))
    then write('*')
    else write(' ')
   end;
  writeln;
 end;
readln
end.