uses crt;
var N, cs, T, i: integer;
Begin
   clrscr;
   write('Nhap so N: '); readln(N);
   (*Xu li va in ra hai dong 1 va 2*)
   write('Cac chu so cua N la:');
   T:=0;
   while N<>0 do
      begin
      cs:=N mod 10;
      write(cs:2);
      T:=T+cs;
      N:=N div 10;
      end;
   writeln;
   writeln('Tong cac chu so cua N la:', T:2);
   (*Xu li va in ra dong 3*)
   i:=2;
   while (i<T) and (T mod i <> 0) do i:=i+1;
   if i=T then writeln('Tong cac chu so cua N la so nguyen to')
      else writeln('Tong cac chu so cua N khong phai la so nguyen to');
   (*Xu li va in ra dong 4*)
   write('Cac so chinh phuong tu 1 den tong cac chu so cua N la:');
   i:=1;
   while (i*i<=T) do
      begin
      write(i*i:2);
      i:=i+1;
      end;
   readln;
End.