为什么我编的程序会出现这样的提示？（Free pascal）

Question

问题：

程序如下：procedure init;
begin
assign(output,'friday.out'); rewrite(output);
end;
function days(x,y:longint):longint;
begin
case y of
1,3,5,7,8,10,12:days:=31;
4,6,9,11:days:=30;
2:if ((x mod 4=0) and (x mod 100<>0)) or (x mod 400=0) then days:=29 else days:=28;
end;
end;
procedure print;
var i,j,k,m,n,ans:longint;
begin
n:=6; ans:=0;
for i:=1990 to 1999 do
for j:=1 to 12 do
begin
k:=days(i,j);
repeat
if n=7 then n:=1
else inc(n);
inc(ans);
if (n=5) and (ans=13) then writeln(i,j,k);
until k=ans;
end;
close(output);
end;
begin
init;
print;
end.
图片：

Answer 1

你自己写的代码是不可能有病毒的，这是360误报，你直接关闭你的360就可以了。不要理会这个360。

Answer 2

最有可能是360误报。也可能你的系统有病毒了。

Answer 3

不用管，经常这样，关了三六零以及其他杀毒软件就行