Написать программу в которой задано целое число n и выводится каждая его цифра в столбец. На ABC.Pascal

var n,k:integer;beginwrite('n='); readln(n);while n<>0 do begin writeln(n mod 10); n:=n div 10; end;end.Пример:n=1275665721