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.