Составить программу в Pascal, которая вводит трехзначное число и ...

Мария

program ssd;

 uses crt,graph;

 var   a,a1,a2,a3:integer;

 begin

 clrscr;

 writeln('Введите трехзначное число');

 readln(a);

 a1:= a mod 10;

 a2:=(a div 10) mod 10;

 a3:= a div 100;

 writeln('    ',a1,a2,a3);

 readkey;

end.