入门桐桐数用pascal桐桐很喜欢研究数字，特别喜欢研究质数。一天，桐桐发现有一些数字可以表示成两个质数相乘的形式，比如，10=2*5，2、5都是质数，所以10是一个“桐桐数”。所以

Question

【入门】桐桐数 用 pascal
桐桐很喜欢研究数字，特别喜欢研究质数。一天，桐桐发现有一些数字可以表示成两个质数相乘的形式，比如，10=2*5，2、5都是质数，所以10是一个“桐桐数”。所以桐桐决定考考你，她告诉你一个数n，请你判断n是不是“桐桐数”。
输入
一个数n(1<=n<=2^31-1)。
输出
输出一行，如果n是一个“桐桐数”，则输出“It's a Tongtong number.”，否则输出“It's not a Tongtong number.”
样例输入
10
样例输出
It's a Tongtong number.‍‍

Answer 1

var
n,j,i:integer;
function su(z:integer):boolean;
begin
su:=false;
for i:=2 to z-1 do
if z mod i=0 then su:=true;
end;
begin
read(n);
for 2 to n-1 do
if n mod su(i)=0 then begin n:=n div i;if su(n) then writeln('It''s a Tongtong number')
else writeln('It''s not a Tongtong number.');
end.
应该对吧，没有验证。虽然不是特别好，但看在打了这么多字的份上，给个采纳吧。