3.дано целое трехзначное число а. вывести цифры этого числа на экран в столбик. паскаль

Var a:byte;
begin
write('a - ');
readln(a);
writeln(a div 100);
writeln((a div 10)mod 10);
writeln(a mod 10);
readln
end.