Viết chương trình nhập vào một số nguyên có hai chữ số , in ra màn hình chữ số hàng chục và hàng đơn vị của số đó

program ctpt;

uses crt;

  var a: integer;

begin

             clrscr; 

             write(‘Nhap so nguyen a co 2 chu so: ‘); readln(a);

             if (a<10) and (a>99) then write(‘Sai yeu cau’) else

             begin

                  write(‘Chu so hang chuc la: ‘, a div 10);

                  write(‘Chu so hang don vi la: ‘, a mod 10);

             end;

             readln

end.