- program triangle_isocele;
- var lig,l,i,esp,caract:integer;
- begin
- repeat
- writeln('donner le nombre de ligne');
- readln(lig);
- until ((lig>0) and (lig<20));
- for l:=1 to lig do
- begin
- esp:=lig-l;
- for i:=1 to esp do
- write(' ');
- esp:=2*l-1;
- for i:=1 to esp do
- write ('*');
- writeln;
- end
- end.
program triangle_isocele;
var lig,l,i,esp,caract:integer;
begin
repeat
writeln('donner le nombre de ligne');
readln(lig);
until ((lig>0) and (lig<20));
for l:=1 to lig do
begin
esp:=lig-l;
for i:=1 to esp do
write(' ');
esp:=2*l-1;
for i:=1 to esp do
write ('*');
writeln;
end
end.