Что выводит данная программа?

Program Ne4to;
const m=30;
var i,j,k: integer;
procedure TestProc( var a:integer; var b: integer);
var c, d: integer;
begin
d:= 99 mod m;
  i:=m div 3; a:=b+3;c:=a; b:=c-4; i:=i+2*d;
  writeln('Pervij' , a,b,c,d);
end;
    begin
      i:=9; j:=2; k:=4;
      Test(j,k);
       writeln('Vtoroj', i, j, k);
    end.