Đọc số

uses crt;
var
  m,a,b,c:integer;
begin
  clrscr;
  repeat
    write('Nhap m= ');
    readln(m);
  until (m>99) and (m<1000);
  c:=m mod 10;
  m:=m div 10;
  b:=m mod 10;
  a:=m div 10;
  writeln('a= ',a);
  writeln('b= ',b);
  writeln('c= ',c);
  readln;
end.