Wieder problem in Pascal!

[Niels]

@fkerber ... ich glaub der Baum sollte net nur halb gezeichnet werden.

Ich hab mal nen kurzen Pascal-Quelltext gemacht (da es für die Schule ist soll's ja bestimmt in Pascal sein, oder lernt von euch jemand in der Schule Delphi???...Das wär natürlich geil)
...hoff mal der funzt

Delphi-Quellcode:

var
  a,b,x,y,z: integer;

begin
  write('Bitte Höhe der Krone einegben: ');
  readln(a);
  write('Bitte Höhe des Stammes einegben: ');
  readln(b);
  writeln;
  writeln;
  for x := a downto 1 do
  begin
    for y := 1 to (x-1) do write(' ');
    if (a-x) > 0 then
      for z := 1 to 2*(a-x) do write('*');
    writeln('*');
  end;
  for x := 1 to b do
  begin
    for y := 1 to (a-2) do write(' ');
    writeln('***');
  end;
  readln;
end.

MfG Niels

PS: Meine Lösung ist genau nach der Aufgabe des Lehrers...siehe oben @fkerber