Bạn điền các lệnh sau:
PROGRAM SO-NGUYEN-TO;
USES CRT;
VAR N,I,S:INTEGER;
BEGIN
CLRSCR;
WRITE('NHAP N:');READLN(N);
FOR I:=2 TO N-1 THEN
IF N MOD I = 0 THEN S:=S+I;
IF S=0 THEN WRITE(N,':LA SO NGUYEN TO')
ELSE WRITE(N,':KO PHAI LA SO NGUYEN TO');
READLN;
END.