13 БАЛЛОВ, сделать ** паскале Трехзначное введенное число распечатать вертикально

Question

13 БАЛЛОВ, сделать на паскале
Трехзначное введенное число распечатать вертикально

Answer 1

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.