program baigiai;
uses crt;
var n,i,m,k,d,t:integer;
begin
clrscr;
write('Nhap N: '); readln(n);
if n mod 4=0 then writeln(n,' chia het cho 4')
else writeln(n,' khong chia het cho 4');
d:=0; t:=0;
m:=n; k:=0;
while m>0 do
begin
d:=d+1;
t:=t+m mod 10;
k:=k*10+m mod 10;
m:=m div 10;
end;
writeln(n,' co ',d,' chu so');
writeln('Tong cac chu so cua ',n,' la: ',t);
write('So dao nguoc cua ',n,' la: ',k);
readln
end.