program tmp;

var
   Molo  :Boolean;

begin
   Molo := 1;     { This should give out a Type mismatch error ! }
end.