etoile_pyr

etoile_pyr

by RAYANE HAMADOUCHE -
Number of replies: 0

program etoile_pyr;
var i,j,n:integer;
     s:string;
begin
readln(n);
s:=' ';
for i:=1 to n do
begin
for j:=i to n do  write(' ');
s:='*'+' '+s;
writeln(s);
end;
end.            

Attachment code_etoile_pyr.png
Attachment etoile_pyr.png