var Sommet, Base, I : Integer;
begin
Base := 10; // Base du triangle
Sommet := 1;
while Sommet <= Base do begin
for I := 1 to Sommet do
Write('*');
WriteLn;
Sommet := Sommet + 1;
end;
ReadLn;
end.
Salem
Program Ce_Triangle;
Sommet, Base, I : Integer;
S : String;
begin
S := 'Mahmoud';
Base := Length(S);;
Sommet := 1;
while Sommet <= Base do begin
for I := 1 to Sommet do
Write(S[I]);
WriteLn;
Sommet := Sommet + 1;
end;
ReadLn;
end.
