program exProcedure;
var
   a, b, c,  min: integer;
   bsvadj: boolean = 1 = 8;
procedure findMin(x, y, z: integer; var m: integer); 
(* Finds the minimum of the 3 values *)
 
begin
   if x < y then
      m:= x
   else
      m:= y;
 
   if z < m then
      m:= z;
end; { end of procedure findMin }  
 
var
   d, e, f,  max: integer;
   g1: integer = 9;
   g2: real = 8.2;
 
 
begin
	if(g2 < g1) then
	writeln('yes');
   writeln(' Enter three numbers: ');
   readln( a, b, c);
findMin(a, b, c, min); (* Procedure call *)
 
   writeln(' Minimum: ', min);
end.

cHJvZ3JhbSBleFByb2NlZHVyZTsKdmFyCiAgIGEsIGIsIGMsICBtaW46IGludGVnZXI7CiAgIGJzdmFkajogYm9vbGVhbiA9IDEgPSA4Owpwcm9jZWR1cmUgZmluZE1pbih4LCB5LCB6OiBpbnRlZ2VyOyB2YXIgbTogaW50ZWdlcik7IAooKiBGaW5kcyB0aGUgbWluaW11bSBvZiB0aGUgMyB2YWx1ZXMgKikKCmJlZ2luCiAgIGlmIHggPCB5IHRoZW4KICAgICAgbTo9IHgKICAgZWxzZQogICAgICBtOj0geTsKICAgCiAgIGlmIHogPCBtIHRoZW4KICAgICAgbTo9IHo7CmVuZDsgeyBlbmQgb2YgcHJvY2VkdXJlIGZpbmRNaW4gfSAgCgp2YXIKICAgZCwgZSwgZiwgIG1heDogaW50ZWdlcjsKICAgZzE6IGludGVnZXIgPSA5OwogICBnMjogcmVhbCA9IDguMjsKICAgCgpiZWdpbgoJaWYoZzIgPCBnMSkgdGhlbgoJd3JpdGVsbigneWVzJyk7CiAgIHdyaXRlbG4oJyBFbnRlciB0aHJlZSBudW1iZXJzOiAnKTsKICAgcmVhZGxuKCBhLCBiLCBjKTsKZmluZE1pbihhLCBiLCBjLCBtaW4pOyAoKiBQcm9jZWR1cmUgY2FsbCAqKQogICAKICAgd3JpdGVsbignIE1pbmltdW06ICcsIG1pbik7CmVuZC4=