已知正整数 n是两个不同的质数的乘积,试求出较大的那个质数 .

题目

已知正整数 n是两个不同的质数的乘积,试求出较大的那个质数 .
输入
输入只有一行,包含一个正整数 n.
输出
输出只有一行,包含一个正整数p,即较大的那个质数.
样例输入
21
样例输出
7
用pascal解

答案

var
i,n:longint;
begin
readln(n);
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then begin writeln(n div i); halt; end;
end.
肯定对