exercice étoile avec correction

Ecrire un programme qui dessine un triangle isocèle par des étoiles comme le montre la figure ci-dessous :

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

program etoile;
uses wincrt;
var
n:integer;
procedure saisie(var n:integer);
begin
repeat
write('saisir n');
readln(n);
until n in [1..25];
end;
procedure affichage(n:integer);
var
i,j:integer;
begin
for i:=1 to n do
begin
gotoxy(40-i+1,i);
for j:=1 to (2*i-1) do
write('*');
end;
end;
begin
saisie(n);
affichage(n);
end.