uses crt; var n,i:longint; Procedure kt(var i:longint); begin i:=2; while(n>1)and(n mod i<>0)do inc(I); end; begin clrscr; write('Nhap 1 so: ');readln(n); kt(i); if i=n then writeln('Day la so nguyen to') else writeln('Day khong la so nguyen to'); readln end.
uses crt; var n,i:longint; Procedure kt(var i:longint);
begin i:=2; while(n>1)and(n mod i<>0)do inc(I); end; begin clrscr; write('Nhap 1 so: ');readln(n); kt(i); if i=n then writeln('Day la so nguyen to') else writeln('Day khong la so nguyen to'); readln end.