简单地说素数是一种除了能被1和它本身整除以外不能被其他任何数整除的数,判断一个数是否为素数pascal程序

var a,i:longint;t:boolean;
begin
t:=true;
readln(a);
if a=1 then writeln('F');
if a1 then begin
for i:=2 to trunc(sqrt(a)) do
if a mod i=0 then t:=false;
if t then writeln('T')else writeln('F');
end;
end.