【入门】寻找雷劈数
题意分析：
这道题的题目还是比较明了的，这里就不做过多解释了。
解题思路：
截取出来后根据题目要求判断。
算法分析：
用for语句在1000到9999之间循环，
把千位+百位和十位+个位截取出来，
再根据题目进行判断。
答案参考：
var
i,ab,cd:longint;
begin
for i:=1000 to 9999 do //循环
begin
ab:=i div 100;
cd:=i mod 100;
if (ab+cd)*(ab+cd)=i then //判断
writeln(i);
end;
end.