Pascal :

var
  a,b,n:longint;
begin
  readln(n);
  a:=n div 10;
  b:=n mod 10;
  writeln(a);
  writeln(b);
  writeln(a+b);
end.