uses crt;

var a, b, c, n : integer;

begin

clrscr;

write('nhap so co ba chu so : ');readln(n);

a := n div 100;

b := (n - a * 100) div 10;

c := n - a* 100 - b * 10;

writeln('hai chu so cuoi cung : ', b, c);

writeln('dao nguoc ba so : ', c*100 + b*10 + a);

writeln('hang tram : ', a ,', hang chuc : ', b ,', don vi : ', c);

writeln('tong cac chu so : ', a + b + c);

readln

end.

program hhh;

uses crt;

var x, y, z, n : integer;

begin

clrscr;

write('nhap so co ba chu so : ');readln(n);

x := n div 100;y := (n - a * 100) div 10;z := n - a* 100 - b * 10;

writeln('hai chu so cuoi cung : ', y, z);

writeln('dao nguoc ba so : ', z*100 + y*10 + x);

writeln('hang tram : ', x ,', hang chuc : ', y ,', don vi : ', z);

writeln('tong cac chu so : ', x + y + z);

readln;

end.