viết chương trình nhập 3 số nguyên dương m,n,k (m<n<k) kiểm tra xem tích m,n,k có là số có 2 chữ số

uses crt;
var m, n, k: longint;
begin
     clrscr;
     write('Nhap so m: ');
     readln(m);
     write('Nhap so n: ');
     readln(n);
     write('Nhap so k: ');
     readln(k);
     if ((m*n*k >= 10) and (m*n*k <=99)) then write('Tich cua ba so tren la so co hai chu so.')
        else write('Tich cua ba so tren khong phai la so co hai chu so.');
     readln;
end.

program ctpt;

uses crt;

  var m, n, k, t: integer;

begin

          clrscr;

          write('Nhap m = '); readln(m);

          write('Nhap n = '); readln(n);

          write('Nhap k = '); readln(k);

          if (m<n) and (n<k) then

          begin

                   t:=m*n*k;

                   if t>99 or t<9 then write('Tich cua 3 so m, n, k khong phai so co 2 chu so') else

                             write('Tich cua 3 so m, n, k la so co 2 chu so');

           end

           else write('3 so nguyen duong do phai thoa man: m < n <k');

           readln

end.