Pętla for z C w Pascalu.

for(i=0; i<wys; i++)
	{
		for(s=0; s<i; s++)
			printf("_");
		for (g=(wys+wys)-1; g>i*2; g--)
			printf("*");

		printf("\n");
	}

for i := 0 to wys - 1 do // wys - 1 to jest to samo co i < wys
begin
  for s := 0 to i - 1 do 
    write('_');
  for g := (wys + wys) - 1 downto i * 2 + 1 do 
    write('*');
  writeln;
end;