Pascal/Turbo Pascal - necesito k corra pascal

necesito k pascal me ejecute
*
**
***
****
*****

tambien
*****
****
***
**
*
usando ciclos for y un solo writeln
porfavor
les estare agradecidos

Hola, prueba con esto... Espero te sirva... Copialo y pegalo en pascal...


program asteriscos;
uses crt;
var i,j:integer;
begin
clrscr;

{*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*)

*
**
***
****
*****
}

for i:=1 to 5 do
for j:=1 to i do
begin
gotoxy(j,i);
writeln('*');
end;

readkey;
clrscr;

{*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*)

*****
****
***
**
*
}

for i:=5 downto 1 do
for j:=1 to i do
begin
gotoxy(i,j);
writeln('*');
end;

readkey;

end.