Nhập vào một số nguyên dương n. tính tổng của các chữ số là số nguyên tố của n.

bt2.pas

program bt2;
uses crt;
var n: int64;
    tong, nchr: longint;
begin
 clrscr;
 write('Nhap n: ');
 readln(n);
 while n<>0 do begin
  nchr:=n mod 10;
  if nchr in [2, 3, 5, 7] then tong:=tong+nchr;
  n:=n div 10;
 end;                                                     x
 write('Tong: ', tong);
 readkey;
end.