定義變量
s:字符串；
p，q，I，ans，代碼:longint
函數sushu(P:longint):boolean；
定義變量
我:渴望；
開始
如果p & lt2然後退出(假)；
for i:=2 to trunc(sqrt(p)) do
如果p mod i=0，則退出(假)；
退出(真)；
結束；
開始
readln(s)；
ans:= maxlongint；
對於i:=1到長度(s)-1 do
開始
val(copy(s，1，I)，p，code)；
val(copy(s，i+1，長度(s)-i)，q，code)；
如果蘇舒(p+q)和(p+q & lt；ans)那麽ans:= p+q；
結束；
如果ans & ltmaxlongint然後writeln(ans) else writeln('未找到！');
readln
結束。
//由灰天空飛鵝htfy96@qq.com