求一三重循环.

DELPHI控制台程序（Console Application)：

program Project1;

{$APPTYPE CONSOLE}
const n=4;{金字塔的层数}

var i,j:integer;

begin
for I := 1 to n do begin
write(' ':20-(2*i));
for j := 1 to i do
write(i:4);
writeln;
end;
writeln;

writeln('Press ENTER to Exit ...');
readln;

end.

用C++吧

我用c语言给你做，你看看算法就行了.
for(i=1；i<=4;i++)
{
for(j=1;j<=i;j++);
printf("%d",i);
printf("%=/n");
}

#include<stdio.h>
main()
{
int num;
int i,j;
scanf("%d",&num);//输入金字塔高度
for(i=0;i<num;i++)
{
for(j=0;j<=i;j++)
{
printf("%4d",i+1);
}
printf("\n");
}
}