Giúp tôi bài này nha! e he!@@@##

[khanhanh_2203]

nhập vao 2 số m va n bất kì.
nhập x sao cho (m <= x <= n) . ghi vao tệp 'bai.inp'
viet chương trình đưa ra một tệp tên 'bai.out' một dạng tam giác pascal như sau:
1
212
32123
4321234
543212345
65432123456
7654321234567
876543212345678
98765432123456789
0987654321234567890
thử xem sao nha!
:-??%-(:-@
:-??%-(:-@

bạn nào làm đc gửi qua mail cho tôi nha: khanhanh_2203@yahoo.com.vn
thank's!

[Ngô Tấn Quang]

Chưa nghĩ ra thuật toán nào hay hơn:
B1: Nhập n;

x:=40; y:=1;
For i:=1 to n do
Begin
k:=i; d:=-1;
GotoXY(x,y);
For j:=1 to 2*i-1 do
Begin Write(k mod 10); k:=k mod 10+d; If k=1 then d:=-d; End;
x:=x-1; y:=y+1;
End;

Đề như trên là n=10;
Cho xin cái thanks