reza4359
دوشنبه 25 آذر 1392, 07:59 صبح
uses wincrt;
var
i,j,s : integer;
begin
s:=10;
for i:=1 to 5 do
begin
writeln;
write(' ':s);
for j:=1 to i do
write(j:2);
for j:=(i-1) downto 1 do
write(j:2);
s:=s-2;
end;
end
var
i,j,s : integer;
begin
s:=10;
for i:=1 to 5 do
begin
writeln;
write(' ':s);
for j:=1 to i do
write(j:2);
for j:=(i-1) downto 1 do
write(j:2);
s:=s-2;
end;
end