Program abc;
  Integer x,y,z;
  Real a,b
  Procedure ab(Var m,n:Integer;t:Real);
    Begin
      t:=n+m;
      If m>n then n:=m else t:=m;
      While n<m do
        Begin
          n:=n+1
        End
    End;
Begin
  x:=1;y:=2;z:=3;
  Call ab(x,y,z);
  z:=4+z+(1+2+6+x)*3*y*5+7;
  If ~ 3<=x & y<>4 then z:=0;
  y:=219;  z:=37;  x:=y*z
End.