Viết chương trình giả sử ngân hàng có nhiều tờ tiền loại 1.000 đồng,2.000 đồng và 5.000 đồng (một nghìn đồng,hai nghìn đồng và năm nghìn đồng ),hỏi từ tờ tiền này 10.000 đồng có bn pp để đồi ra tờ tiền nêu trên?  giúp mình với=((( xin lun đang cần gấp=(((

Program Tao_bang;
Uses Crt;
Var
 i: byte;    {chi so cua hang}
 j: byte;    {chi so cua cot}
Begin
Clrscr;{xoa man hinh}
 For i:=0 to 9 do  {viet theo tung hang}
 begin
 For j:=0 to 9 do  {viet theo tung cot tren moi hang}
       write(10*i+j:4);  {viet cac so ij ra man hinh}
       writeln;    {xuong hang moi}
 end;  {xong hang thu i}
 readln;           {dung chuong trinh de xem ket qua}
end.

Một xâu được gọi là chuẩn nếu đầu và cuối xâu không có ký tự trống, đồng thời
trong xâu không có 2 ký tự trống kề liền. Cho xâu S không quá 500 kí tự.
Yêu cầu: - Chuẩn hóa xâu đã nhập.

- Tìm số lượng kí tự chữ số trong xâu.

Dữ liệu vào: Xâu kí tự S.
Dữ liệu ra: Dòng 1: In ra xâu đã chuẩn hóa.
Dòng 2: In ra số lượng kí tự chữ số.

uses   crt;

var    N, i: integer;

begin

       clrscr;

       write('Nhap so N=');readln(N);

       writeln;

       writeln('Bang nhan, ',N);

       writeln;

       for i:=1 to 10 do

       begin

               GotoXY(5,WhereY);

               writeln(N,'x',i:2,'=',N*i:3);

               writeln

       end;

       readln

end.