帮忙编个pascal程序

begin
writeln（‘5月12日）；
end.

源码如下：
program exe1;
var
i,j,k,l:integer;
a:boolean;
begin
a:=true;
for i:=1 to 3*7*6 do begin
if (i mod 3=0) and (i mod 7=0) and (i mod 6=0) then begin
j:=i;
a:=false;
end;
if a=false then break;
end;
if j<31 then writeln('5月',j,'日') else writeln('6月',j-31,'日');
readln;
end.