Введите трёхзначное число вывести на экран число сотен,десятков,единиц в этом числе.Работа в программе PascalABCNET

var a: integer;

sot, des, ed: integer;

begin

readln(a);

if (a>99) and (a<1000) do

begin

  ed:=a div 10;

  des:=(a mod 100) div 10;

  sot:=a mod 100;

end else writeln(\'Число не трёхзначное!\');

writeln(\'Единиц \', ed);

writeln(\'Десятков \', des); 

writeln(\'Сотен \', sot);

end.