13 , сделать на паскале трехзначное введенное число распечатать вертикально

Var n,m,k:Integer;
begin
  Readln(n);
  Writeln(n mod 10);
  m:=n div 10;
  Writeln(m mod 10);
  Writeln(n div 100);
end.